From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 29 Nov 2006 02:40:12 +0000 (+0000)
Subject: added some safety checks to prevent search timeout errors
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=4c395f4ee0843423b4843416f202eb734f40c6d3;p=Evergreen.git

added some safety checks to prevent search timeout errors


git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@6630 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 0d7e20ca7e..1cf9ac5fa2 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
@@ -1019,9 +1019,13 @@ sub marc_search {
 	my $recs = search_cache($ckey, $offset, $limit);
 
 	if(!$recs) {
-		$recs = $U->storagereq($method, %$args);
-		put_cache($ckey, scalar(@$recs), $recs);
-		$recs = [ @$recs[$offset..($offset + ($limit - 1))] ];
+		$recs = $U->storagereq($method, %$args) || [];
+		if( $recs ) {
+			put_cache($ckey, scalar(@$recs), $recs);
+			$recs = [ @$recs[$offset..($offset + ($limit - 1))] ];
+		} else {
+			$recs = [];
+		}
 	}
 
 	my $count = 0;