From e7270e13a079c4aeae3dbecd263b8f23b83ef2ac Mon Sep 17 00:00:00 2001 From: miker Date: Thu, 20 Dec 2007 15:17:20 +0000 Subject: [PATCH] use if/else instead of next git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@8249 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../perlmods/OpenILS/Application/Search/Z3950.pm | 23 +++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm index 967b52743f..520ed6a0b4 100755 --- 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"); -- 2.11.0