[Koha-cvs] CVS: koha/acqui addorder.pl,1.10,1.11 finishreceive.pl,1.7,1.8

[Paul POULAIN]

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

Modified Files:
        addorder.pl finishreceive.pl 
Log Message:
long is the road to 1.4.0
* MARCadditem and MARCmoditem now works
* various bugfixes in MARC management
!!! 1.3.0 should be released very soon now. Be careful !!!


Index: addorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/addorder.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** addorder.pl 14 Aug 2002 18:12:52 -0000      1.10
--- addorder.pl 20 Sep 2002 13:05:36 -0000      1.11
***************
*** 61,67 ****
  my $orderexists=$input->param('orderexists');
  
  #check to see if biblio exists
  if ($quantity ne '0'){
- 
    if ($existing eq 'no'){
      #if it doesnt create it
--- 61,67 ----
  my $orderexists=$input->param('orderexists');
  
+ print STDERR "quantity = $quantity // existing = $existing\n";
  #check to see if biblio exists
  if ($quantity ne '0'){
    if ($existing eq 'no'){
      #if it doesnt create it
***************
*** 85,96 ****
--- 85,100 ----
  #             series        => $series?$series:"" });
    } else {
+ print STDERR "inside loop\n";
      $bibnum=$input->param('biblio');
      $bibitemnum=$input->param('bibitemnum');
      my $oldtype=$input->param('oldtype');
+ print STDERR  "bibitemnum : $bibitemnum itemtype:$itemtype 
oldtype:$oldtype\n";
      if ($bibitemnum eq '' || $itemtype ne $oldtype){
        $bibitemnum= &newbiblioitem({ biblionumber => $bibnum,
                                                         itemtype => 
$itemtype?$itemtype:"",
                                                         isbn => $isbn?$isbn:"" 
});
+       print STDERR "newbiblioitem\n";
      }
+ print STDERR "modbiblio\n";
      &modbiblio({
          biblionumber  => $bibnum,

Index: finishreceive.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/finishreceive.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** finishreceive.pl    14 Aug 2002 18:12:52 -0000      1.7
--- finishreceive.pl    20 Sep 2002 13:05:36 -0000      1.8
***************
*** 94,97 ****
--- 94,98 ----
    &modbibitem({
        biblioitemnumber => $bibitemno,
+       biblionumber     => $biblionumber,
        itemtype         => $itemtype?$itemtype:"",
        isbn             => $isbn?$isbn:"",
***************
*** 119,122 ****
--- 120,124 ----
    #  print $barcode;
    }
+ #  print STDERR "************ biblionumber => $biblionumber\n";
    my ($error) = newitems({ biblioitemnumber => $bibitemno,
                           biblionumber     => $biblionumber,