fixed bug in cache key generation for searches

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
index b89cdda..dcd48eb 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
@@ -402,15 +402,16 @@ sub the_quest_for_knowledge {
        my $ismeta = 0;
        my @recs;
 
+       if($self->api_name =~ /metabib/) {
+               $ismeta = 1;
+               $method =~ s/biblio/metabib/o;
+       }
+
 
        my $offset      = $searchhash->{offset} || 0;
        my $limit       = $searchhash->{limit} || 10;
        my $end         = $offset + $limit - 1;
 
-       for( keys %{$searchhash->{searches}} ) {
-               
-       }
-
        # do some simple sanity checking
        if(!$searchhash->{searches} or
                (
@@ -438,10 +439,6 @@ sub the_quest_for_knowledge {
 
        $searchhash->{limit} -= $offset;
 
-       if($self->api_name =~ /metabib/) {
-               $ismeta = 1;
-               $method =~ s/biblio/metabib/o;
-       }
 
        my $result = ($docache) ? search_cache($ckey, $offset, $limit) : undef;