From 8bcf402af503bc28a81dceb55f0c61e204689dca Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 16 Jun 2005 15:51:05 +0000
Subject: [PATCH] fix for UNIMARC BNF behaviour (now work as expected)

---
 z3950/processz3950queue | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/z3950/processz3950queue b/z3950/processz3950queue
index 543aaa76e9..65c4d3cf2b 100755
--- a/z3950/processz3950queue
+++ b/z3950/processz3950queue
@@ -280,14 +280,7 @@ while (1) {
 									my $scantimerstart=time();
 									for ($i=1; $i<=(($numresults<80) ? ($numresults) : (80)); $i++) {
 										my $rec=$rs->record($i);
- 										my $marcdata;
-										# use render() or rawdata() depending on the type of the returned record
-										if (ref($rec) eq "Net::Z3950::Record::USMARC") {
-											$marcdata = $rec->rawdata();
-										}
-										if (ref($rec) eq "Net::Z3950::Record::UNIMARC") {
-											$marcdata = $rec->rawdata();
-										}
+ 										my $marcdata = $rec->rawdata();
 										$globalencoding = ref($rec);
  										$result.=$marcdata;
 									}
-- 
2.39.5