From 9ad4bd3f673a833c7fd1443b91c51cca76d17bff Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 26 Feb 2004 16:39:28 +0000
Subject: [PATCH] modifs in db handling to see if it works better...

---
 z3950/processz3950queue | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/z3950/processz3950queue b/z3950/processz3950queue
index eff6e4a7bb..9d27be0a9b 100755
--- a/z3950/processz3950queue
+++ b/z3950/processz3950queue
@@ -247,7 +247,7 @@ while (1) {
 #######
 								print "$$/$id : connected to $globalname\n";
  								eval {$conn->option(elementSetName => 'F')};
-								eval { $conn->option(preferredRecordSyntax => Net::Z3950::RecordSyntax::USMARC);} if ($globalsyntax eq "USMARC");
+								eval { $conn->option(preferredRecordSyntax => Net::Z3950::RecordSyntax::USMARC);} if ($globalsyntax eq "MARC21");
  								eval { $conn->option(preferredRecordSyntax => Net::Z3950::RecordSyntax::UNIMARC);} if ($globalsyntax eq "UNIMARC");
  								if ($@) {
  									print "$$/$id : $globalname ERROR: $@ for $resultsid\n";
@@ -272,14 +272,11 @@ while (1) {
 										my $rec=$rs->record($i);
  										my $marcdata;
 										# use render() or rawdata() depending on the type of the returned record
-										my $marcrecord;
 										if (ref($rec) eq "Net::Z3950::Record::USMARC") {
 											$marcdata = $rec->rawdata();
-											$marcrecord = MARC::File::USMARC::decode($rec->rawdata())
 										}
 										if (ref($rec) eq "Net::Z3950::Record::UNIMARC") {
-											$marcdata = $rec->render();
-											$marcrecord = MARC::File::USMARC::decode($rec->render())
+											$marcdata = $rec->rawdata();
 										}
 										$globalencoding = ref($rec);
  										$result.=$marcdata;
-- 
2.39.5