[open-ils-commits] r8249 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: miker
Date: 2007-12-20 10:17:20 -0500 (Thu, 20 Dec 2007)
New Revision: 8249

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
use if/else instead of next

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-20 14:50:29 UTC (rev 8248)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-20 15:17:20 UTC (rev 8249)
@@ -166,20 +166,21 @@
 					'open-ils.search.biblio.zstyle'
 				)->run($auth, \%tmp_args)
 			);
-			next;
-		}
+		} else {
 
-		$tmp_args{query} = compile_query('and', $tmp_args{service}, $tmp_args{search});
+		    $tmp_args{query} = compile_query('and', $tmp_args{service}, $tmp_args{search});
 
-		my $res = $self->do_service_search( $conn, $auth, \%tmp_args );
-        if ($U->event_code($res)) {
-            $conn->respond($res) if $U->event_code($res);
-            next;
+		    my $res = $self->do_service_search( $conn, $auth, \%tmp_args );
+
+            if ($U->event_code($res)) {
+                $conn->respond($res) if $U->event_code($res);
+            } else {
+
+                push @services, $tmp_args{service};
+	    	    push @results, $res->{result};
+		        push @connections, $res->{connection};
+            }
         }
-
-        push @services, $tmp_args{service};
-		push @results, $res->{result};
-		push @connections, $res->{connection};
 	}
 
 	$logger->debug("z3950: Connections created");