[Koha-cvs] CVS: koha/C4 Search.pm,1.51,1.52

[Ambrose Li]

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

Modified Files:
        Search.pm 
Log Message:
Use ? for an SQL query to prevent SQL syntax errors


Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -r1.51 -r1.52
*** Search.pm   19 Nov 2002 12:36:16 -0000      1.51
--- Search.pm   25 Jan 2003 20:05:20 -0000      1.52
***************
*** 1,3 ****
--- 1,4 ----
  package C4::Search;
+ #require '/u/acli/lib/cvs.pl'; # XXX
  
  # Copyright 2000-2002 Katipo Communications
***************
*** 1974,1981 ****
     my $numlines=0;
     my $query= "Select * from accountlines where
! borrowernumber=$params->{'borrowernumber'} order by date desc,timestamp desc";
     my $sth=$dbh->prepare($query);
  #   print $query;
!    $sth->execute;
     my $total=0;
     while (my $data=$sth->fetchrow_hashref){
--- 1975,1982 ----
     my $numlines=0;
     my $query= "Select * from accountlines where
! borrowernumber=? order by date desc,timestamp desc";
     my $sth=$dbh->prepare($query);
  #   print $query;
!    $sth->execute($params->{'borrowernumber'});
     my $total=0;
     while (my $data=$sth->fetchrow_hashref){
***************
*** 2176,2179 ****
--- 2177,2182 ----
      if (my $data2=$sth2->fetchrow_hashref){
         $counts{'not available'}++;
+        #my $x = "Not available, data2=" . (defined $data2? 
CGI::escapeHTML(cvs($data2)): "undef");
+        #$counts{$x}++; #XXX
      } else {
         $counts{$data->{'branchname'}}++;