[Koha-cvs] CVS: koha/C4 Search.pm,1.18.2.9,1.18.2.10
Chris Cormack
rangi at users.sourceforge.net
Thu Sep 12 06:37:30 CEST 2002
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv31319/C4
Modified Files:
Tag: rel-1-2
Search.pm
Log Message:
quick fix to throw away searches with less than 3 characters in the search
term
Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.18.2.9
retrieving revision 1.18.2.10
diff -C2 -r1.18.2.9 -r1.18.2.10
*** Search.pm 19 Aug 2002 06:20:48 -0000 1.18.2.9
--- Search.pm 12 Sep 2002 04:37:27 -0000 1.18.2.10
***************
*** 102,108 ****
my ($env,$type,$search,$num,$offset)=@_;
my $dbh = C4Connect();
! # foreach my $key (%$search){
! # $search->{$key}=$dbh->quote($search->{$key});
! # }
my ($count, at results);
# print STDERR "Doing a search $search->{'itemnumber'} $search->{'isbn'}\n";
--- 102,110 ----
my ($env,$type,$search,$num,$offset)=@_;
my $dbh = C4Connect();
! foreach my $key (%$search){
! if (length($search->{$key}) < 3){
! undef ($search->{$key});
! }
! }
my ($count, at results);
# print STDERR "Doing a search $search->{'itemnumber'} $search->{'isbn'}\n";
***************
*** 171,175 ****
my $dbh = &C4Connect;
$search->{'keyword'}=~ s/ +$//;
! $search->{'keyword'}=~ s/'/\\'/;
my @key=split(' ',$search->{'keyword'});
my $count=@key;
--- 173,177 ----
my $dbh = &C4Connect;
$search->{'keyword'}=~ s/ +$//;
! $search->{'keyword'}=~ s/'/\\'/g;
my @key=split(' ',$search->{'keyword'});
my $count=@key;
More information about the Koha-cvs
mailing list