From 7a1c0652d55c0daeb7762953b67f684d1e46acc9 Mon Sep 17 00:00:00 2001 From: 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