correcting transmission format

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_4@10916 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 b40a866..bcab051 100755 (executable)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
@@ -368,9 +368,9 @@ sub process_results {
 
                        my $rec = $results->record($_);
 
-            if ($tformat eq 'usmarc') {
+            if (lc($tformat) eq 'usmarc') {
                        $marc           = MARC::Record->new_from_usmarc($rec->raw());
-            } elsif ($tformat eq 'xml') {
+            } elsif (lc($tformat) eq 'xml') {
                        $marc           = MARC::Record->new_from_xml($rec->raw());
             } else {
                 die "Unsupported record transmission format $tformat"