[Koha-cvs] CVS: koha/acqui receive.pl,1.1.1.1,1.2

[Paul POULAIN]

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

Modified Files:
	receive.pl 
Log Message:
DB query optimisation


Index: receive.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/receive.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** receive.pl	19 Dec 2000 23:45:57 -0000	1.1.1.1
--- receive.pl	14 May 2002 09:13:52 -0000	1.2
***************
*** 12,16 ****
  print $input->header();
  my $id=$input->param('id');
! my ($count, at booksellers)=bookseller($id); 
  my $invoice=$input->param('invoice');
  my $freight=$input->param('freight');
--- 12,16 ----
  print $input->header();
  my $id=$input->param('id');
! my ($count, at booksellers)=bookseller($id);
  my $invoice=$input->param('invoice');
  my $freight=$input->param('freight');
***************
*** 55,61 ****
  EOP
  ;
! my ($count, at results)=invoice($invoice);
  if ($invoice eq ''){
!   ($count, at results)=getallorders($id);
  }
  print $count;
--- 55,63 ----
  EOP
  ;
! my ($count, at results);
  if ($invoice eq ''){
! 	($count, at results)=getallorders($id);
! } else {
! 	($count, at results)=invoice($invoice);
  }
  print $count;