[Koha-cvs] CVS: koha/C4 Search.pm,1.18.2.23,1.18.2.24

[Finlay Thompson]

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;