From d499871c02b00ced5268f1057db2d7ff96ad4905 Mon Sep 17 00:00:00 2001 From: Dan Scott Date: Sun, 16 Oct 2011 12:45:52 -0400 Subject: [PATCH] LP875819: Fix SRU and Z39.50 default search index failures Per http://www.loc.gov/standards/sru/specs/cql.html : All parts of CQL are case insensitive [...] If any case insensitive part of CQL is specified with both upper and lower case, it is for aesthetic purposes only. So fold the SRU qualifier and relation to lower case. This then matches the srw.serverchoice entry that we already have in config.metabib_search_alias so that default searches will successfully point to the keyword index. Signed-off-by: Dan Scott Signed-off-by: Lebbeous Fogle-Weekley --- Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm index d3a6ae8953..76b3a0086b 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm @@ -1912,6 +1912,15 @@ sub sru_search { if ( $qualifier ) { my ($qset, $qname) = split(/\./, $qualifier); + # Per http://www.loc.gov/standards/sru/specs/cql.html + # "All parts of CQL are case insensitive [...] If any case insensitive + # part of CQL is specified with both upper and lower case, it is for + # aesthetic purposes only." + + # So fold the qualifier and relation to lower case + $qset = lc($qset); + $qname = lc($qname); + if ( exists($qualifier_map{$qset}{$qname}) ) { $qualifier = $qualifier_map{$qset}{$qname}{'index'} || 'kw'; $log->debug("SRU toEvergreen: $qset, $qname $qualifier_map{$qset}{$qname}{'index'}\n"); -- 2.11.0