[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);
                }