[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'};