[Koha-cvs] CVS: koha/C4/Circulation Borrissues.pm,1.6,1.7
MJ Ray
slef at users.sourceforge.net
Mon Dec 8 15:14:59 CET 2003
Update of /cvsroot/koha/koha/C4/Circulation
In directory sc8-pr-cvs1:/tmp/cvs-serv10472/C4/Circulation
Modified Files:
Borrissues.pm
Log Message:
DBI call fix for bug 662
Index: Borrissues.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Borrissues.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Borrissues.pm 13 Oct 2002 06:37:54 -0000 1.6
--- Borrissues.pm 8 Dec 2003 14:14:56 -0000 1.7
***************
*** 44,56 ****
my @issues;
my $dbh = C4::Context->dbh;
! my $query = "select * from issues,items,biblioitems,biblio
! where borrowernumber = '$borrower->{'borrowernumber'}'
and (returndate is null)
and (issues.itemnumber = items.itemnumber)
and (items.biblioitemnumber = biblioitems.biblioitemnumber)
and (items.biblionumber = biblio.biblionumber)
! order by date_due";
! my $sth = $dbh->prepare($query);
! $sth->execute();
my $x;
while (my $data = $sth->fetchrow_hashref) {
--- 44,55 ----
my @issues;
my $dbh = C4::Context->dbh;
! my $sth = $dbh->prepare("select * from issues,items,biblioitems,biblio
! where borrowernumber = ?
and (returndate is null)
and (issues.itemnumber = items.itemnumber)
and (items.biblioitemnumber = biblioitems.biblioitemnumber)
and (items.biblionumber = biblio.biblionumber)
! order by date_due");
! $sth->execute($borrower->{'borrowernumber'});
my $x;
while (my $data = $sth->fetchrow_hashref) {
More information about the Koha-cvs
mailing list