From 709488b8b68bdf544c484572b6028a53b03b6878 Mon Sep 17 00:00:00 2001 From: =?utf8?q?St=C3=A9phane=20Delaune?= Date: Thu, 11 Sep 2014 10:29:49 +0200 Subject: [PATCH] Bug 11399: QA fixes Signed-off-by: Kyle M Hall Signed-off-by: Tomas Cohen Arazi --- misc/batchRebuildItemsTables.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/misc/batchRebuildItemsTables.pl b/misc/batchRebuildItemsTables.pl index e05e4d4196..2398bdb5cd 100755 --- a/misc/batchRebuildItemsTables.pl +++ b/misc/batchRebuildItemsTables.pl @@ -1,7 +1,5 @@ #!/usr/bin/perl -use 5.10.0; -use strict; -use warnings; +use Modern::Perl; use Getopt::Long; use C4::Context; use C4::Biblio; @@ -94,8 +92,10 @@ while ( my ( $biblionumber, $biblioitemnumber, $frameworkcode ) = $sth->fetchrow } } -$dbh->do("UPDATE systempreferences SET value=$CataloguingLog WHERE variable='CataloguingLog'"); -$dbh->do("UPDATE systempreferences SET value=$dontmerge where variable='dontmerge'"); +my $sthCataloguingLog = $dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='CataloguingLog'"); +$sthCataloguingLog->execute($CataloguingLog); +my $sthdontmerge = $dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='dontmerge'"); +$sthdontmerge->execute($dontmerge); $dbh->commit() unless $test_parameter; my $timeneeded = time() - $starttime; print "$count MARC record done in $timeneeded seconds\n"; -- 2.39.5