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 <dscott@laurentian.ca>
Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm
index 708cc22..280a7cc 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/SuperCat.pm
@@ -1950,6 +1950,15 @@ sub sru_search {
         my $term      = $self->getTerm();
         my $relation  = $self->getRelation();
 
+        # 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
+        $qualifier = lc($qualifier);
+        $relation = $relation;
+
         my $query;
         if ( $qualifier ) {
             my ($qset, $qname) = split(/\./, $qualifier);
@@ -1959,7 +1968,7 @@ sub sru_search {
                 $log->debug("SRU toEvergreen: $qset, $qname   $qualifier_map{$qset}{$qname}{'index'}\n");
             }
 
-            my @modifiers = $relation->getModifiers();
+            my @modifiers = map lc, $relation->getModifiers();
 
             my $base = $relation->getBase();
             if ( grep { $base eq $_ } qw/= scr exact all/ ) {