adjusting cql qualifier logic

git-svn-id: svn://svn.open-ils.org/ILS/trunk@8846 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
index 60a041e..8c8bfae 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
@@ -1449,26 +1449,32 @@ sub sru_search {
         my $relation  = $self->getRelation();
 
         my $query;
-        if ( $qualifier and $qualifier_map{lc($qualifier)} ) {
-            my $base      = $relation->getBase();
-            my @modifiers = $relation->getModifiers();
-
-            foreach my $m ( @modifiers ) {
-                if( $m->[ 1 ] eq 'fuzzy' ) {
-                    $term = "$term~";
-                }
+        if ( $qualifier ) {
+
+            if ( exists($qualifier_map{lc($qualifier)}) ) {
+                $qualifier = 'kw' unless ( defined($qualifier_map{lc($qualifier)}) );
             }
 
+
+            #my @modifiers = $relation->getModifiers();
+
+            #foreach my $m ( @modifiers ) {
+            #    if( $m->[ 1 ] eq 'fuzzy' ) {
+            #        $term = "$term~";
+            #    }
+            #}
+
+            my $base = $relation->getBase();
             if( $base eq '=' ) {
                 $base = ':';
             } else {
                 croak( "Evergreen doesn't support relations other than '='" );
             }
+
             return "$qualifier$base$term";
-        } elsif ($qualifier) {
-            return "kw:$term";
+
         } else {
-            return "";
+            return "kw:$term";
         }
     }
 }