[open-ils-commits] r10916 - branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: miker
Date: 2008-10-25 23:38:27 -0400 (Sat, 25 Oct 2008)
New Revision: 10916

Modified:
   branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
correcting transmission format

Modified: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-10-26 03:38:14 UTC (rev 10915)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-10-26 03:38:27 UTC (rev 10916)
@@ -368,9 +368,9 @@
 
 			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"