[open-ils-commits] r10255 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: miker
Date: 2008-08-04 20:01:23 -0400 (Mon, 04 Aug 2008)
New Revision: 10255

Modified:
   branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
backporting syntax/ref fixes from Bill

Modified: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-08-04 21:42:27 UTC (rev 10254)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-08-05 00:01:23 UTC (rev 10255)
@@ -159,7 +159,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;
@@ -245,7 +245,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"