[Koha-cvs] CVS: koha/C4 Search.pm,1.18.2.23,1.18.2.24
Finlay Thompson
finlayt at users.sourceforge.net
Wed Dec 11 06:39:19 CET 2002
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv17706/C4
Modified Files:
Tag: rel-1-2
Search.pm
Log Message:
Fixed up the "on order" search properly this time :-)
Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.18.2.23
retrieving revision 1.18.2.24
diff -C2 -r1.18.2.23 -r1.18.2.24
*** Search.pm 11 Dec 2002 03:56:45 -0000 1.18.2.23
--- Search.pm 11 Dec 2002 05:39:16 -0000 1.18.2.24
***************
*** 2200,2208 ****
if ($bibnum) {
my $query2="Select * from aqorders where biblionumber=$bibnum and
! (datecancellationprinted is NULL or datecancellationprinted ='')";
my $sth2=$dbh->prepare($query2);
$sth2->execute;
if (my $data=$sth2->fetchrow_hashref){
! $counts{'order'}=$data->{'quantity'} - $data->{'quantityreceived'};
}
$sth2->finish;
--- 2200,2209 ----
if ($bibnum) {
my $query2="Select * from aqorders where biblionumber=$bibnum and
! (datecancellationprinted is NULL or datecancellationprinted ='' or datecancellationprinted = '0000-00-00' )";
my $sth2=$dbh->prepare($query2);
$sth2->execute;
if (my $data=$sth2->fetchrow_hashref){
! my $ordered = $data->{'quantity'} - $data->{'quantityreceived'};
! $counts{'On order'}=$ordered if $ordered > 0;
}
$sth2->finish;
More information about the Koha-cvs
mailing list