bugfix : report only the "tagtoreport" field

diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl
index 1a4c56b..320e0cd 100755 (executable)
--- 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