[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)=@_;
    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)=@_;
[...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();