removing use strict problem

This commit is contained in:
Paul Poulain 2009-05-27 16:31:43 +02:00 committed by Henri-Damien LAURENT
parent cb6def8d4d
commit fa13689c2d

View file

@ -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";