[Koha-cvs] CVS: koha/authorities blinddetail-biblio-search.pl,1.4.2.1,1.4.2.2

[Paul POULAIN]

Update of /cvsroot/koha/koha/authorities
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv369/authorities

Modified Files:
      Tag: rel_2_2
	blinddetail-biblio-search.pl 
Log Message:
bugfix : reporting a repeated subfield did not work

Index: blinddetail-biblio-search.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/blinddetail-biblio-search.pl,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -C2 -r1.4.2.1 -r1.4.2.2
*** blinddetail-biblio-search.pl	19 May 2005 22:21:10 -0000	1.4.2.1
--- blinddetail-biblio-search.pl	25 Oct 2005 12:14:32 -0000	1.4.2.2
***************
*** 81,93 ****
  if ($authid) {
  	foreach my $field ($record->field($auth_type->{auth_tag_to_report})) {
! 			my @subfields_data;
! 			my @subf=$field->subfields;
  		# loop through each subfield
  		for my $i (0..$#subf) {
  			$subf[$i][0] = "@" unless $subf[$i][0];
  			my %subfield_data;
! 			$subfield_data{marc_value}=$subf[$i][1];
! 			$subfield_data{marc_subfield}=$subf[$i][0];
! 			$subfield_data{marc_tag}=$field->tag();
  			push(@subfields_data, \%subfield_data);
  		}
--- 81,98 ----
  if ($authid) {
  	foreach my $field ($record->field($auth_type->{auth_tag_to_report})) {
! 		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;
! 			chop $result{$_};
! 			$subfield_data{marc_value}=$result{$_};
! 			$subfield_data{marc_subfield}=$_;
! # 			$subfield_data{marc_tag}=$field->tag();
  			push(@subfields_data, \%subfield_data);
  		}