[Koha-cvs] koha/acqui addorder.pl [dev_week]

[Ryan Higgins]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Ryan Higgins <rych>	07/01/01 01:49:44

Modified files:
	acqui          : addorder.pl 

Log message:
	Biblio::newbiblio takes a $record object now.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/addorder.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.24.2.2&r2=1.24.2.2.2.1

Patches:
Index: addorder.pl
===================================================================
RCS file: /sources/koha/koha/acqui/addorder.pl,v
retrieving revision 1.24.2.2
retrieving revision 1.24.2.2.2.1
diff -u -b -r1.24.2.2 -r1.24.2.2.2.1
--- addorder.pl	1 Dec 2005 17:27:55 -0000	1.24.2.2
+++ addorder.pl	1 Jan 2007 01:49:44 -0000	1.24.2.2.2.1
@@ -22,6 +22,7 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+
 use CGI;
 use C4::Auth;
 use C4::Output;
@@ -83,11 +84,13 @@
 # delete if $quantity has been se to 0 by the librarian
 my $bibnum;
 my $bibitemnum;
+my $record;
 if ($quantity ne '0'){
 	#check to see if biblio exists
 	if ($existing eq 'no'){
 		#if it doesnt create it
-		$bibnum = &newbiblio({ title     => $title?$title:"",
+	
+		($bibnum, $record) = &newbiblio({ title     => $title?$title:"",
 						author    => $author?$author:"",
 						copyrightdate => $copyrightdate?$copyrightdate:"",
 						series => $series?$series:"",
@@ -96,7 +99,7 @@
 								itemtype     => $itemtype?$itemtype:"",
 								isbn        => $isbn?$isbn:"",
 								publishercode => $publishercode?$publishercode:"",
-								});
+								}, $record);
 		# change suggestion status if applicable
 		if ($suggestionid) {
 			changestatus($suggestionid,'ORDERED','',$bibnum);