From a1b172d7e9044b1cec1a39bd63197efb99a8a3ee Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 22 Aug 2006 03:14:19 +0000 Subject: [PATCH] fixed bug in cache key generation for searches git-svn-id: svn://svn.open-ils.org/ILS/trunk@5637 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index b89cddaedf..dcd48eb477 100644 --- 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; -- 2.11.0