aquisition.pm : bug fix add variable decalaration

[koha.git] / C4 / Acquisition.pm

diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index 759c262..09c47d0 100644 (file)
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@@ -220,6 +220,7 @@ sub neworder {
       )
       = @_;
     my $sth;
+    my $dbh;
     if ( !$budget || $budget eq 'now' ) {
         $sth = $dbh->prepare(
             "INSERT INTO aqorders
@@ -382,7 +383,7 @@ Also updates the book fund ID in the aqorderbreakdown table.
 
 #'
 sub receiveorder {
-    my ( $biblio, $ordnum, $quantrec, $user, $cost, $invoiceno, $freight, $rrp $bookfund)
+    my ( $biblio, $ordnum, $quantrec, $user, $cost, $invoiceno, $freight, $rrp, $bookfund)
       = @_;
     my $dbh = C4::Context->dbh;
     my $sth = $dbh->prepare(
@@ -1085,7 +1086,7 @@ sub bookfunds {
 #'
 
 sub bookfundbreakdown {
-    my ( $id, $year ) = @_;
+    my ( $id, $year ,$start, $end) = @_;
     my $dbh = C4::Context->dbh;
     my $sth = $dbh->prepare(
         "SELECT quantity,datereceived,freight,unitprice,listprice,ecost,