[Koha-cvs] koha/C4 SearchMarc.pm
Chris Cormack
chris at katipo.co.nz
Mon Mar 6 05:31:18 CET 2006
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Chris Cormack <rangi at savannah.gnu.org> 06/03/06 04:31:18
Modified files:
C4 : SearchMarc.pm
Log message:
Tweaking searching
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/SearchMarc.pm.diff?tr1=1.57&tr2=1.58&r1=text&r2=text
Patches:
Index: koha/C4/SearchMarc.pm
diff -u koha/C4/SearchMarc.pm:1.57 koha/C4/SearchMarc.pm:1.58
--- koha/C4/SearchMarc.pm:1.57 Mon Feb 27 01:10:14 2006
+++ koha/C4/SearchMarc.pm Mon Mar 6 04:31:18 2006
@@ -223,13 +223,15 @@
$query .= " and " if ($query);
my $field = $tagslib->{$tag}->{$subfield}->{kohafield};
if ($field eq 'biblio.author') {
- $query .= "Author= \"".@$value[$i]."\"";
+ $query .= "Author all \"".@$value[$i]."\"";
} elsif ($field eq 'biblio.title') {
- $query .= "Title= \"".@$value[$i]."\"";
+ $query .= "Title all \"".@$value[$i]."\"";
} elsif ($field eq 'biblioitems.isbn') {
$query .= "Isbn= ".@$value[$i];
} else {
- $query .= @$value[$i];
+ my @spacedout=split(/ /,@$value[$i]);
+ my $text = join(" and ", at spacedout);
+ $query .= "$text";
}
}
# warn "$i : ".@$tags[$i]. "=> $tag / $subfield = ".$tagslib->{$tag}->{$subfield}->{kohafield};
More information about the Koha-cvs
mailing list