diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 759c262658..73bd2bdc89 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 $bookfund) + my ( $biblio, $ordnum, $quantrec, $user, $cost, $invoiceno, $freight, $rrp, $bookfund) = @_; my $dbh = C4::Context->dbh; my $sth = $dbh->prepare(