[open-ils-commits] r11330 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-11-25 08:55:54 -0500 (Tue, 25 Nov 2008)
New Revision: 11330

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
don't test undefined connections, which can happen when non-supported search types are requested (e.g. loc => keyword)

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-11-25 04:53:16 UTC (rev 11329)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-11-25 13:55:54 UTC (rev 11330)
@@ -217,6 +217,9 @@
     # local catalog search is not processed with other z39 results;
     $$args{service} = [grep {$_ ne 'native-evergreen-catalog'} @{$$args{service}}];
 
+    @connections = grep {defined $_} @connections;
+    return undef unless @connections;
+
 	while ((my $index = OpenILS::Utils::ZClient::event( \@connections )) != 0) {
 		my $ev = $connections[$index - 1]->last_event();
 		$logger->debug("z3950: Received event $ev");