From 7ae8f46a854c4ef1db225e4602ebbb67f935113c Mon Sep 17 00:00:00 2001
From: truth_nz <truth_nz>
Date: Wed, 15 May 2002 02:22:24 +0000
Subject: [PATCH] Patch to acqui system to use new newbiblioitem() parameters

---
 acqui/addorder.pl      | 16 ++++++++++------
 acqui/finishreceive.pl |  7 ++++++-
 2 files changed, 16 insertions(+), 7 deletions(-)

diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index f2f0fa62a4..93dfaddd86 100755
--- a/acqui/addorder.pl
+++ b/acqui/addorder.pl
@@ -58,13 +58,17 @@ if ($quantity ne '0'){
     $bibitemnum=$input->param('bibitemnum');
     my $oldtype=$input->param('oldtype');
     if ($bibitemnum eq '' || $itemtype ne $oldtype){
-      $bibitemnum=newbiblioitem($bibnum,$itemtype,$isbn);
+      $bibitemnum = &newbiblioitem({
+	  biblionumber => $bibnum,
+	  itemtype     => $itemtype?$itemtype:"",
+	  isbn         => $isbn?$isbn:"" });
     }
-    modbiblio({ biblionumber  => $bibnum,
-	        title         => $title?$title:"",
-	        author        => $author?$author:"",
-	        copyrightdate => $copyright?$copyright:"",
-	        series        => $series?$series:"" });
+    &modbiblio({
+        biblionumber  => $bibnum,
+	title         => $title?$title:"",
+	author        => $author?$author:"",
+	copyrightdate => $copyright?$copyright:"",
+	series        => $series?$series:"" });
   }
   if ($orderexists ne '') {
     modorder($title,$ordnum,$quantity,$listprice,$bibnum,$basketno,$supplier,$who,$notes,$bookfund,$bibitemnum,$rrp,$ecost,$gst);
diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl
index 1e0209db01..0fd4d13f11 100755
--- a/acqui/finishreceive.pl
+++ b/acqui/finishreceive.pl
@@ -61,7 +61,12 @@ if ($itemtype =~ /REF/){
 if ($itemtype =~ /PER/){
 #  print "$bibitemno";
   $class="Periodical";
-  $bibitemno=newbiblioitem($biblionumber,$itemtype,$isbn,$volinf,$class);
+  $bibitemno = &newbiblioitem({
+      biblionumber   => $biblionumber,
+      itemtype       => $itemtype?$itemtype:"",
+      isbn           => $isbn?$isbn:"",
+      volumeddesc    => $volinf?$volinf:"",
+      classification => $class?$class:"" });
 #  print "here $bibitemno";
 }
 if ($quantity != 0){
-- 
2.39.5