[Koha-cvs] CVS: koha/C4 Catalogue.pm,1.38,1.39
Paul POULAIN
tipaul at users.sourceforge.net
Fri Feb 20 11:35:02 CET 2004
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15487/C4
Modified Files:
Catalogue.pm
Log Message:
bugfix (wrong synch with rel_2_0)
Index: Catalogue.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -r1.38 -r1.39
*** Catalogue.pm 11 Feb 2004 08:40:10 -0000 1.38
--- Catalogue.pm 20 Feb 2004 10:34:59 -0000 1.39
***************
*** 99,114 ****
my ($basketno,$supplier)=@_;
my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("Select *,biblio.title from aqorders,biblio,biblioitems
! where basketno=?
and biblio.biblionumber=aqorders.biblionumber and biblioitems.biblioitemnumber
=aqorders.biblioitemnumber
and (datecancellationprinted is NULL or datecancellationprinted =
! '0000-00-00')"
! .(($supplier ne '')?" and aqorders.booksellerid=?":"")
! ." group by aqorders.ordernumber");
! if ($supplier ne '') {
! $sth->execute($basketno,$supplier);
! } else {
! $sth->execute($basketno);
}
$query.=" order by biblioitems.publishercode";
--- 99,110 ----
my ($basketno,$supplier)=@_;
my $dbh = C4::Context->dbh;
! my $query="Select *,biblio.title from aqorders,biblio,biblioitems
! where basketno='$basketno'
and biblio.biblionumber=aqorders.biblionumber and biblioitems.biblioitemnumber
=aqorders.biblioitemnumber
and (datecancellationprinted is NULL or datecancellationprinted =
! '0000-00-00')";
! if ($supplier ne ''){
! $query.=" and aqorders.booksellerid='$supplier'";
}
$query.=" order by biblioitems.publishercode";
***************
*** 119,126 ****
my $i=0;
while (my $data=$sth->fetchrow_hashref){
! push(@results,$data);
}
$sth->finish;
! return(scalar(@results), at results);
}
--- 115,123 ----
my $i=0;
while (my $data=$sth->fetchrow_hashref){
! $results[$i]=$data;
! $i++;
}
$sth->finish;
! return($i, at results);
}
More information about the Koha-cvs
mailing list