[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/acqui receive.pl,1.1.1.1,1.2
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/acqui receive.pl,1.1.1.1,1.2 |
Date: |
Tue, 14 May 2002 02:13:54 -0700 |
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,@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,@booksellers)=bookseller($id);
my $invoice=$input->param('invoice');
my $freight=$input->param('freight');
***************
*** 55,61 ****
EOP
;
! my ($count,@results)=invoice($invoice);
if ($invoice eq ''){
! ($count,@results)=getallorders($id);
}
print $count;
--- 55,63 ----
EOP
;
! my ($count,@results);
if ($invoice eq ''){
! ($count,@results)=getallorders($id);
! } else {
! ($count,@results)=invoice($invoice);
}
print $count;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/acqui receive.pl,1.1.1.1,1.2,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/C4 Acquisitions.pm,1.14,1.15
- Next by Date:
[Koha-cvs] CVS: koha thesaurus_popup.pl,NONE,1.1 modbib.pl,1.3,1.4
- Previous by thread:
[Koha-cvs] CVS: koha/C4 Acquisitions.pm,1.14,1.15
- Next by thread:
[Koha-cvs] CVS: koha thesaurus_popup.pl,NONE,1.1 modbib.pl,1.3,1.4
- Index(es):