From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 5 Aug 2008 01:58:38 +0000 (+0000)
Subject: Merged revisions 10254 via svnmerge from
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a853100c8b7ec040c7f8c523f999bb405865be3b;p=Evergreen.git

Merged revisions 10254 via svnmerge from
svn://svn.open-ils.org/ILS/trunk

........
  r10254 | erickson | 2008-08-04 17:42:27 -0400 (Mon, 04 Aug 2008) | 1 line

  fixed syntax error in elseif.  fixed undefined reference to service
........


git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@10256 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 e8b82142fa..ef38212d41 100755
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
@@ -248,7 +248,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;
@@ -339,7 +339,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"