added some safety checks for search timeouts in marc search

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6617 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 0d7e20c..1cf9ac5 100644 (file)
--- 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;