From c6a0ef39ac7a394746018507a7baa612ee203b9d Mon Sep 17 00:00:00 2001 From: miker Date: Sun, 26 Oct 2008 03:38:14 +0000 Subject: [PATCH] correcting transmission format git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2@10915 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm index 10f12a3a5b..9515f21f34 100755 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm @@ -215,9 +215,11 @@ sub process_results { my $service = shift; my $tformat = $services{$service}->{transmission_format} || $output; - my $rformat = $services{$service}->{record_format} || 'FI'; + my $rformat = $services{$service}->{record_format}; + $results->option(elementSetName => $rformat); - $logger->info("z3950: using record format '$rformat'"); + $results->option(preferredRecordSyntax => $tformat); + $logger->info("z3950: using record format '$rformat' and transmission format '$tformat'"); my @records; my $res = {}; @@ -243,9 +245,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