From feff81eaea85459d0dac43a13576c13c9d1ce15c Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Fri, 9 Jun 2006 11:47:53 +0000
Subject: [PATCH] Fixing a bug that bruno spotted, $bookfund in receiveorder

---
 C4/Acquisition.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index 156873796e..759c262658 100644
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@@ -382,7 +382,7 @@ Also updates the book fund ID in the aqorderbreakdown table.
 
 #'
 sub receiveorder {
-    my ( $biblio, $ordnum, $quantrec, $user, $cost, $invoiceno, $freight, $rrp )
+    my ( $biblio, $ordnum, $quantrec, $user, $cost, $invoiceno, $freight, $rrp $bookfund)
       = @_;
     my $dbh = C4::Context->dbh;
     my $sth = $dbh->prepare(
@@ -402,7 +402,7 @@ sub receiveorder {
     # allows them to adjust budgets
     if ( C4::Context->preferene("LooseBudgets") ) {
         my $sth = $dbh->prepare(
-"UPDATE aqorderbreakdown SET bookfundid=?                                                                                                         
+"UPDATE aqorderbreakdown SET bookfundid=?
                            WHERE ordernumber=?"
         );
         $sth->execute( $bookfund, $ordnum );
-- 
2.20.1