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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index 5743659..d3de386 100755 (executable)
--- 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"