[open-ils-commits] r16627 - branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Search (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-06-08 15:14:27 -0400 (Tue, 08 Jun 2010)
New Revision: 16627

Modified:
   branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
back-porting: protect against empty results from bib searches caused by search timeouts.  This allows the API call to log the error and return reasonable results

Modified: branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-06-08 16:15:49 UTC (rev 16626)
+++ branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-06-08 19:14:27 UTC (rev 16627)
@@ -950,7 +950,7 @@
             $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=".