Updates to use changed newbiblio sub in C4/Acquisitions.pm
authortruth_nz <truth_nz>
Wed, 10 Apr 2002 05:47:07 +0000 (05:47 +0000)
committertruth_nz <truth_nz>
Wed, 10 Apr 2002 05:47:07 +0000 (05:47 +0000)
acqui/addorder.pl

index d57aac3..50f9dc8 100755 (executable)
@@ -47,7 +47,9 @@ if ($quantity ne '0'){
 
   if ($existing eq 'no'){
     #if it doesnt create it
-    $bibnum=newbiblio($title,$author,$copyright);
+    $bibnum=newbiblio({ title     => $title,
+                       author    =>$author,
+                       copyright => $copyright });
     $bibitemnum=newbiblioitem($bibnum,$itemtype,$isbn);
     newsubtitle($bibnum);
     modbiblio($bibnum,$title,$author,$copyright,$series);