From 3ab14932e0f3bf94a6c29c60851a79aa4184adc2 Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Wed, 31 Oct 2007 13:38:04 -0500
Subject: [PATCH] fixed extra warning during install.pl

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 installer/install.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/installer/install.pl b/installer/install.pl
index a58724965e..c210a04fb7 100755
--- a/installer/install.pl
+++ b/installer/install.pl
@@ -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,
-- 
2.39.5