From 3af57f659159d5a7c03684a2171b3c605a6daac3 Mon Sep 17 00:00:00 2001 From: miker Date: Sun, 26 Oct 2008 03:38:27 +0000 Subject: [PATCH] correcting transmission format git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_4@10916 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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" -- 2.11.0