From dedde1ac55e1137941e18d8c30abb6f5570ec3ce Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Fri, 17 Jan 2003 18:14:41 +0000
Subject: [PATCH] sub newbiblio returns a two element array, $bibnum and
 $error.

---
 acqui/addorder.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index 8968756811..cc77205a99 100755
--- a/acqui/addorder.pl
+++ b/acqui/addorder.pl
@@ -55,7 +55,7 @@ if ($quantity ne '0'){
 
   if ($existing eq 'no'){
     #if it doesnt create it
-    $bibnum = &newbiblio({ title     => $title?$title:"",
+    ($bibnum) = &newbiblio({ title     => $title?$title:"",
 	                   author    => $author?$author:"",
 	                   copyright => $copyright?$copyright:"",
 				    series => $series?$series:"",
-- 
2.39.5