[Koha-cvs] CVS: koha/C4/Circulation Borrissues.pm,1.6,1.7

[MJ Ray]

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) {