From b3124cdc2a22b638a61ce17552d5bec06f61966e Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 4 Aug 2008 21:42:27 +0000 Subject: [PATCH] fixed syntax error in elseif. fixed undefined reference to service git-svn-id: svn://svn.open-ils.org/ILS/trunk@10254 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm index 8d92005411..4195966cbf 100755 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm @@ -200,7 +200,7 @@ sub do_search { my $username = $$args{username} || ""; my $password = $$args{password} || ""; - my $tformat = $services{$service}->{transmission_format} || $output; + my $tformat = $services{$args->{service}}->{transmission_format} || $output; my $editor = new_editor(authtoken => $auth); return $editor->event unless $editor->checkauth; @@ -289,7 +289,7 @@ sub process_results { if ($tformat eq 'usmarc') { $marc = MARC::Record->new_from_usmarc($rec->raw()); - } else if ($tformat eq 'xml') { + } elsif ($tformat eq 'xml') { $marc = MARC::Record->new_from_xml($rec->raw()); } else { die "Unsupported record transmission format $tformat" -- 2.11.0