[Koha-cvs] CVS: koha/acqui acquire.pl,1.11,1.12 finishreceive.pl,1.12,1.13 receive.pl,1.8,1.9

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui
In directory sc8-pr-cvs1:/tmp/cvs-serv12839/acqui

Modified Files:
        acquire.pl finishreceive.pl receive.pl 
Log Message:
bugfixes + adding buttons to switch between normal and MARC view of a record

Index: acquire.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/acquire.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** acquire.pl  3 Mar 2003 17:35:29 -0000       1.11
--- acquire.pl  7 Mar 2003 16:34:07 -0000       1.12
***************
*** 31,36 ****
  use C4::Search;
  use C4::Auth;
- use C4::Biblio;
- use C4::Output;
  use C4::Interface::CGI::Output;
  use C4::Database;
--- 31,34 ----

Index: finishreceive.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/finishreceive.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** finishreceive.pl    3 Mar 2003 17:35:33 -0000       1.12
--- finishreceive.pl    7 Mar 2003 16:34:08 -0000       1.13
***************
*** 105,115 ****
        my $barcode=$input->param('barcode');
        my @barcodes;
!       if ($barcode =~ /\,/){
!               @barcodes=split(/\,/,$barcode);
!       }elsif ($barcode =~ /\|/){
!               @barcodes=split(/\|/,$barcode);
!       } else {
!               $barcodes[0]=$barcode;
!       }
        my ($error) = newitems({ biblioitemnumber => $bibitemno,
                                        biblionumber     => $biblionumber,
--- 105,115 ----
        my $barcode=$input->param('barcode');
        my @barcodes;
! #     if ($barcode =~ /\,/){
!               @barcodes=split(/\,| |\|/,$barcode);
! #     }elsif ($barcode =~ /\|/){
! #             @barcodes=split(/\|/,$barcode);
! #     } else {
! #             $barcodes[0]=$barcode;
! #     }
        my ($error) = newitems({ biblioitemnumber => $bibitemno,
                                        biblionumber     => $biblionumber,

Index: receive.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/receive.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** receive.pl  3 Mar 2003 17:35:34 -0000       1.8
--- receive.pl  7 Mar 2003 16:34:09 -0000       1.9
***************
*** 86,89 ****
--- 86,90 ----
        $line{quantityrecieved} = $results[$i]->{'quantityreceived'};
        $line{total} = $total;
+       $line{id} = $id;
        push @loop_orders, \%line;
        $totalprice+=$results[$i]->{'unitprice'};