[open-ils-commits] r8847 - trunk/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

Author: miker
Date: 2008-03-01 11:36:54 -0500 (Sat, 01 Mar 2008)
New Revision: 8847

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
more adjusting of the cql qualifier logic

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2008-03-01 16:31:38 UTC (rev 8846)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2008-03-01 16:36:54 UTC (rev 8847)
@@ -1334,7 +1334,7 @@
 			'open-ils.search.biblio.multiclass.query' => {} => $search_string
 		)->gather(1);
 
-        $recs = $supercat->request( 'open-ils.supercat.record.object.retrieve' => $recs->{ids} );
+        $recs = $supercat->request( 'open-ils.supercat.record.object.retrieve' => $recs->{ids} )->gather(1);
 
         $resp->addRecord(
             SRU::Response::Record->new(
@@ -1452,7 +1452,7 @@
         if ( $qualifier ) {
 
             if ( exists($qualifier_map{lc($qualifier)}) ) {
-                $qualifier = 'kw' unless ( defined($qualifier_map{lc($qualifier)}) );
+                $qualifier = $qualifier_map{lc($qualifier)} || 'kw';
             }