From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sun, 26 Oct 2008 03:38:27 +0000 (+0000)
Subject: correcting transmission format
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3af57f659159d5a7c03684a2171b3c605a6daac3;p=Evergreen.git

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 b40a866425..bcab051323 100755
--- 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"