From fa13689c2d1a9a9a56480ba494abea4457d05154 Mon Sep 17 00:00:00 2001 From: Paul Poulain 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.5