From 7a1c0652d55c0daeb7762953b67f684d1e46acc9 Mon Sep 17 00:00:00 2001
From: truth_nz <truth_nz>
Date: Wed, 10 Apr 2002 05:47:07 +0000
Subject: [PATCH] Updates to use changed newbiblio sub in C4/Acquisitions.pm

---
 acqui/addorder.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index d57aac3457..50f9dc8ec3 100755
--- a/acqui/addorder.pl
+++ b/acqui/addorder.pl
@@ -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);
-- 
2.39.5