From 270c5b138795a90c14654f83ba74d8d3d53a7971 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 16 Sep 2004 09:45:44 +0000
Subject: [PATCH] bugfix : report only the "tagtoreport" field

---
 authorities/blinddetail-biblio-search.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl
index 1a4c56be77..320e0cdda7 100755
--- a/authorities/blinddetail-biblio-search.pl
+++ b/authorities/blinddetail-biblio-search.pl
@@ -79,7 +79,8 @@ my @loop_data =();
 my $tag;
 my @loop_data =();
 if ($authid) {
-	foreach my $field ($record->fields($auth_type->{auth_tag_to_report})) {
+warn "report $authtypecode => ".$auth_type->{auth_tag_to_report}.$record->as_formatted;
+	foreach my $field ($record->field($auth_type->{auth_tag_to_report})) {
 			my @subfields_data;
 			my @subf=$field->subfields;
 		# loop through each subfield
-- 
2.39.5