Modifications for new acqui.simple

[koha-ffzg.git] / acqui / finishreceive.pl

diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl
index 95b46b7..0dfa44e 100755 (executable)
--- a/acqui/finishreceive.pl
+++ b/acqui/finishreceive.pl
@@ -79,7 +79,14 @@ if ($quantity != 0){
   #  print @barcodes;
   #  print $barcode;
   }
-  my ($error)=makeitems($quantrec,$bibitemno,$biblio,$replacement,$cost,$bookseller,$branch,$loan,@barcodes);
+  my ($error) = newitems({ biblioitemnumber => $bibitemno,
+                          biblionumber     => $biblio,
+                          replacementprice => $replacement,
+                          price            => $cost,
+                          booksellerid     => $bookseller,
+                          homebranch       => $branch,
+                          loan             => $loan },
+                        @barcodes);
   if ($error eq ''){
     if ($itemtype ne 'PER'){
       print $input->redirect("/cgi-bin/koha/acqui/receive.pl?invoice=$invoiceno&id=$id&freight=$freight&gst=$gst");