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