[Koha-devel] CVS: koha updatebibitem.pl,1.3,1.4
Gynn Lomax
truth_nz at users.sourceforge.net
Sun Apr 14 22:34:21 CEST 2002
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/){
More information about the Koha-devel
mailing list