[open-ils-commits] r11331 - branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-11-25 08:56:18 -0500 (Tue, 25 Nov 2008)
New Revision: 11331

Modified:
   branches/rel_1_4/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: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-11-25 13:55:54 UTC (rev 11330)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-11-25 13:56:18 UTC (rev 11331)
@@ -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");