[Koha-cvs] CVS: koha/C4 Search.pm,1.82,1.83

[MJ Ray]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv6266/C4

Modified Files:
        Search.pm 
Log Message:
DBI call fix for bug 662

Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.82
retrieving revision 1.83
diff -C2 -r1.82 -r1.83
*** Search.pm   8 Dec 2003 16:27:10 -0000       1.82
--- Search.pm   9 Dec 2003 14:47:38 -0000       1.83
***************
*** 115,122 ****
    my ($bornum)address@hidden;
    my $dbh = C4::Context->dbh;
!   my $query="select cardnumber,borrowernumber, firstname, surname from 
borrowers where
!   guarantor='$bornum'";
!   my $sth=$dbh->prepare($query);
!   $sth->execute;
  
    my @dat;
--- 115,120 ----
    my ($bornum)address@hidden;
[...1657 lines suppressed...]
!       my $sth = $dbh->prepare("SELECT branchname FROM branches WHERE 
branchcode = ?");
!       $sth->execute($branchcode);
        my $branchname = $sth->fetchrow();
        $sth->finish();
***************
*** 2660,2666 ****
        my ($catcode) = @_;
        my $dbh = C4::Context->dbh;
!       my $query = "SELECT description FROM categories WHERE categorycode = 
'$catcode'";
!       my $sth = $dbh->prepare($query);
!       $sth->execute;
        my $description = $sth->fetchrow();
        $sth->finish();
--- 2678,2683 ----
        my ($catcode) = @_;
        my $dbh = C4::Context->dbh;
!       my $sth = $dbh->prepare("SELECT description FROM categories WHERE 
categorycode = ?");
!       $sth->execute($catcode);
        my $description = $sth->fetchrow();
        $sth->finish();