From a09a5fbebeba33ad37612b8f1a3a543993ccd303 Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 5 Aug 2008 00:01:23 +0000 Subject: [PATCH] backporting syntax/ref fixes from Bill git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2@10255 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 5743659024..d3de38689f 100755 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm @@ -159,7 +159,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; @@ -245,7 +245,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