fixed extra warning during install.pl

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Galen Charlton 2007-10-31 13:38:04 -05:00 committed by Joshua Ferraro
parent 7f60fa7dd5
commit 3ab14932e0

View file

@ -599,10 +599,10 @@ elsif ( $step && $step == 3 ) {
# if there is, then we just need to upgrade
# if there is none, then we need to install the database
#
my $dbversion = C4::Context->preference('Version');
$dbversion =~ /(.*)\.(..)(..)(...)/;
$dbversion = "$1.$2.$3.$4";
if (C4::Context->preference('Version')) {
my $dbversion = C4::Context->preference('Version');
$dbversion =~ /(.*)\.(..)(..)(...)/;
$dbversion = "$1.$2.$3.$4";
$template->param("upgrading" => 1,
"dbversion" => $dbversion,
"kohaversion" => C4::Context->KOHAVERSION,