[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);