[Koha-cvs] CVS: koha/C4 Search.pm,1.51,1.52
Ambrose Li
acli at users.sourceforge.net
Sat Jan 25 21:05:25 CET 2003
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'}}++;
More information about the Koha-cvs
mailing list