Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Fixes problems with searching using terms that contain ' and , by

Browse source 
stripping them out and replacing with a space ... line 115
This commit is contained in:
joshferraro 2004-06-11 14:01:28 +00:00
parent 02a9765add
commit a0f310eb19
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
C4/SearchMarc.pm
View file

@ -95,6 +95,10 @@ sub catalogsearch {
# where m1.bibid=m2.bibid and
# (m1.subfieldvalue like "Des%" and m2.subfieldvalue like "27%")
# last minute stripping out of stuff
# doesn't work @$value =~ s/\'/ /;
# @$value = map { $_ =~ s/\'/ /g } @$value;
# "Normal" statements
my @normal_tags = ();
my @normal_and_or = ();
@ -107,6 +111,13 @@ sub catalogsearch {
my @not_value = ();
my $any_not = 0;
$orderby = "biblio.title" unless $orderby;
#last minute stripping out of ' and ,
foreach $_ (@$value) {
$_=~ s/\'/ /g;
$_=~ s/\,/ /g;
}
for(my $i = 0 ; $i <= $#{$value} ; $i++)
{
if(@$excluding[$i]) # NOT statements
@ -164,7 +175,7 @@ sub catalogsearch {
my $sth;
if ($sql_where2) {
$sth = $dbh->prepare("select distinct m1.bibid from biblio,biblioitems,marc_biblio,$sql_tables where biblio.biblionumber=marc_biblio.biblionumber and biblio.biblionumber=biblioitems.biblionumber and m1.bibid=marc_biblio.bibid and $sql_where2 and ($sql_where1) order by $orderby");
warn "Q2 : select distinct m1.bibid from biblio,biblioitems,marc_biblio,$sql_tables where biblio.biblionumber=marc_biblio.biblionumber and biblio.biblionumber=biblioitems.biblionumber and m1.bibid=marc_biblio.bibid and $sql_where2 and ($sql_where1) order by $orderby";
warn "Q2 : select distinct m1.bibid from biblio,biblioitems,marc_biblio,$sql_tables where biblio.biblionumber=marc_biblio.biblionumber and biblio.biblionumber=biblioitems.biblionumber and m1.bibid=marc_biblio.bibid and $sql_where2 and ($sql_where1) order by $orderby term is @$value";
} else {
$sth = $dbh->prepare("select distinct m1.bibid from biblio,biblioitems,marc_biblio,$sql_tables where biblio.biblionumber=marc_biblio.biblionumber and biblio.biblionumber=biblioitems.biblionumber and m1.bibid=marc_biblio.bibid and $sql_where1 order by $orderby");
warn "Q : select distinct m1.bibid from biblio,biblioitems,marc_biblio,$sql_tables where biblio.biblionumber=marc_biblio.biblionumber and biblio.biblionumber=biblioitems.biblionumber and m1.bibid=marc_biblio.bibid and $sql_where1 order by $orderby";