use if/else instead of next

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@8249 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index 967b527..520ed6a 100755 (executable)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
@@ -166,20 +166,21 @@ sub do_class_search {
                                        '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 );
 
-        push @services, $tmp_args{service};
-               push @results, $res->{result};
-               push @connections, $res->{connection};
+            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};
+            }
+        }
        }
 
        $logger->debug("z3950: Connections created");