[Koha-devel] CVS: koha/acqui addorder.pl,1.2,1.3

[Gynn Lomax]

Update of /cvsroot/koha/koha/acqui
In directory usw-pr-cvs1:/tmp/cvs-serv23750/acqui

Modified Files:
        addorder.pl 
Log Message:
Acquisitions::newbiblioitem updated to be usable for new acqui.simple
addorder.pl and updatebibitem.pl modified to use new newbiblioitem


Index: addorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/addorder.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** addorder.pl 10 Apr 2002 05:47:07 -0000      1.2
--- addorder.pl 15 Apr 2002 05:33:33 -0000      1.3
***************
*** 48,55 ****
    if ($existing eq 'no'){
      #if it doesnt create it
!     $bibnum=newbiblio({ title     => $title,
!                       author    =>$author,
!                       copyright => $copyright });
!     $bibitemnum=newbiblioitem($bibnum,$itemtype,$isbn);
      newsubtitle($bibnum);
      modbiblio($bibnum,$title,$author,$copyright,$series);
--- 48,57 ----
    if ($existing eq 'no'){
      #if it doesnt create it
!     $bibnum = &newbiblio({ title     => $title,
!                          author    =>$author,
!                          copyright => $copyright });
!     $bibitemnum = &newbiblioitem({ biblionumber => $bibnum,
!                                  itemtype     => $itemtype,
!                                  isben        => $isbn });
      newsubtitle($bibnum);
      modbiblio($bibnum,$title,$author,$copyright,$series);