missing my

[koha_fer] / C4 / Catalogue.pm

diff --git a/C4/Catalogue.pm b/C4/Catalogue.pm
index 0bc15b0..e497da5 100644 (file)
--- a/C4/Catalogue.pm
+++ b/C4/Catalogue.pm
@@ -265,7 +265,7 @@ sub modorder {
   $sth=$dbh->prepare("update aqorderbreakdown set bookfundid=? where
   ordernumber=?");
   if ($sth->execute($bookfund,$ordnum) == 0) { # zero rows affected [Bug 734]
-    $query="insert into aqorderbreakdown (ordernumber,bookfundid) values (?,?)";
+    my $query="insert into aqorderbreakdown (ordernumber,bookfundid) values (?,?)";
     $sth=$dbh->prepare($query);
     $sth->execute($ordnum,$bookfund);
   }