back-porting: protect against empty results from bib searches caused by search timeou...

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6_0@16627 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 d834c4d..750dc24 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
@@ -950,7 +950,7 @@ sub staged_search {
             $results = $U->storagereq($method, %$search_hash);
             $search_duration = time - $start;
             $logger->info("staged search: DB call took $search_duration seconds");
-            $summary = shift(@$results);
+            $summary = shift(@$results) if $results;
 
             unless($summary) {
                 $logger->info("search timed out: duration=$search_duration: params=".