[open-ils-commits] r10254 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-08-04 17:42:27 -0400 (Mon, 04 Aug 2008)
New Revision: 10254

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
fixed syntax error in elseif.  fixed undefined reference to service

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-08-04 20:56:57 UTC (rev 10253)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-08-04 21:42:27 UTC (rev 10254)
@@ -200,7 +200,7 @@
 	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 @@
 
             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"