[Koha-cvs] CVS: koha/acqui addorder.pl,1.4,1.5 finishreceive.pl,1.4,1.5

[Gynn Lomax]

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

Modified Files:
	addorder.pl finishreceive.pl 
Log Message:
Patch to acqui system to use new newbiblioitem() parameters


Index: addorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/addorder.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** addorder.pl	9 May 2002 03:01:40 -0000	1.4
--- addorder.pl	15 May 2002 02:22:24 -0000	1.5
***************
*** 59,69 ****
      my $oldtype=$input->param('oldtype');
      if ($bibitemnum eq '' || $itemtype ne $oldtype){
!       $bibitemnum=newbiblioitem($bibnum,$itemtype,$isbn);
      }
!     modbiblio({ biblionumber  => $bibnum,
! 	        title         => $title?$title:"",
! 	        author        => $author?$author:"",
! 	        copyrightdate => $copyright?$copyright:"",
! 	        series        => $series?$series:"" });
    }
    if ($orderexists ne '') {
--- 59,73 ----
      my $oldtype=$input->param('oldtype');
      if ($bibitemnum eq '' || $itemtype ne $oldtype){
!       $bibitemnum = &newbiblioitem({
! 	  biblionumber => $bibnum,
! 	  itemtype     => $itemtype?$itemtype:"",
! 	  isbn         => $isbn?$isbn:"" });
      }
!     &modbiblio({
!         biblionumber  => $bibnum,
! 	title         => $title?$title:"",
! 	author        => $author?$author:"",
! 	copyrightdate => $copyright?$copyright:"",
! 	series        => $series?$series:"" });
    }
    if ($orderexists ne '') {

Index: finishreceive.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/finishreceive.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** finishreceive.pl	12 May 2002 18:08:19 -0000	1.4
--- finishreceive.pl	15 May 2002 02:22:24 -0000	1.5
***************
*** 62,66 ****
  #  print "$bibitemno";
    $class="Periodical";
!   $bibitemno=newbiblioitem($biblionumber,$itemtype,$isbn,$volinf,$class);
  #  print "here $bibitemno";
  }
--- 62,71 ----
  #  print "$bibitemno";
    $class="Periodical";
!   $bibitemno = &newbiblioitem({
!       biblionumber   => $biblionumber,
!       itemtype       => $itemtype?$itemtype:"",
!       isbn           => $isbn?$isbn:"",
!       volumeddesc    => $volinf?$volinf:"",
!       classification => $class?$class:"" });
  #  print "here $bibitemno";
  }