Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv23750 Modified Files: updatebibitem.pl Log Message: Acquisitions::newbiblioitem updated to be usable for new acqui.simple addorder.pl and updatebibitem.pl modified to use new newbiblioitem Index: updatebibitem.pl =================================================================== RCS file: /cvsroot/koha/koha/updatebibitem.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** updatebibitem.pl 12 Feb 2002 21:07:53 -0000 1.3 --- updatebibitem.pl 15 Apr 2002 05:33:33 -0000 1.4 *************** *** 84,88 **** my $loan; if ($flag eq 'notall' && $flag2 eq 'leastone'){ ! $bibitemnum=newbiblioitem($bibnum,$itemtype,$volumeddesc,$classification); modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place); if ($itemtype =~ /REF/){ --- 84,91 ---- my $loan; if ($flag eq 'notall' && $flag2 eq 'leastone'){ ! $bibitemnum = &newbiblioitem({ biblionumber => $bibnum, ! itemtype => $itemtype, ! volumeddesc => $volumeddesc, ! classification => $classification }); modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place); if ($itemtype =~ /REF/){