From 66c1efb4762b3fae114681eee7d6e50f65daf5c6 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 25 Oct 2005 12:14:32 +0000
Subject: [PATCH] bugfix : reporting a repeated subfield did not work

---
 authorities/blinddetail-biblio-search.pl | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl
index a87d09c9ef..c4d22aba3e 100755
--- a/authorities/blinddetail-biblio-search.pl
+++ b/authorities/blinddetail-biblio-search.pl
@@ -80,15 +80,20 @@ my $tag;
 my @loop_data =();
 if ($authid) {
 	foreach my $field ($record->field($auth_type->{auth_tag_to_report})) {
-			my @subfields_data;
-			my @subf=$field->subfields;
+		my @subfields_data;
+		my @subf=$field->subfields;
 		# loop through each subfield
+		my %result;
 		for my $i (0..$#subf) {
 			$subf[$i][0] = "@" unless $subf[$i][0];
+			$result{$subf[$i][0]}.=$subf[$i][1]."|";
+		}
+		foreach (keys %result) {
 			my %subfield_data;
-			$subfield_data{marc_value}=$subf[$i][1];
-			$subfield_data{marc_subfield}=$subf[$i][0];
-			$subfield_data{marc_tag}=$field->tag();
+			chop $result{$_};
+			$subfield_data{marc_value}=$result{$_};
+			$subfield_data{marc_subfield}=$_;
+# 			$subfield_data{marc_tag}=$field->tag();
 			push(@subfields_data, \%subfield_data);
 		}
 		if ($#subfields_data>=0) {
-- 
2.39.5