From fa13689c2d1a9a9a56480ba494abea4457d05154 Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Wed, 27 May 2009 16:31:43 +0200
Subject: [PATCH] removing use strict problem

---
 installer/data/mysql/updatedatabase.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
index df3b1d6019..053cecf74c 100755
--- a/installer/data/mysql/updatedatabase.pl
+++ b/installer/data/mysql/updatedatabase.pl
@@ -2726,7 +2726,7 @@ if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
     $dbh->do("ALTER TABLE `aqbooksellers` ADD COLUMN `gstrate` decimal(6,4) default NULL");
     for my $bookseller (@$booksellers) {
         my $sth = $dbh->prepare("UPDATE aqbooksellers SET gstrate=? WHERE id=?");
-        $sth->execute($bookseller->{gstrate} / 100, $bookseller->{id});
+        $sth->execute($bookseller->{gstrate}?$bookseller->{gstrate}:0 / 100, $bookseller->{id});
         $sth->finish;
     }
     print "Upgrade to $DBversion done (modify gstrate to be consistent with syspref)\n";
-- 
2.39.2