[Koha-devel] CVS: koha updatebibitem.pl,1.3,1.4

[Gynn Lomax]

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/){