View | Details | Raw Unified | Return to bug 3116
Collapse All | Expand All

(-)a/C4/Biblio.pm (-1 / +24 lines)
Lines 996-1001 sub GetISBDView { Link Here
996
                    }
996
                    }
997
                }
997
                }
998
                $blocres .= $textafter if $hasputtextbefore;
998
                $blocres .= $textafter if $hasputtextbefore;
999
            } elsif ( $analysestring =~ /^all(.*)/ )  {
1000
                my $sep = $1 || " ";
1001
1002
                foreach my $field (@fieldslist) {
1003
                   my $calculated = "\n";
1004
                   my $tag        = $field->tag();
1005
                   my @subf = $field->subfields;
1006
                   for my $i ( 0 .. $#subf ) {
1007
                       my $valuecode     = $subf[$i][1];
1008
                       my $subfieldcode  = $subf[$i][0];
1009
                       my $subfieldvalue = GetAuthorisedValueDesc( $tag, $subf[$i][0], $subf[$i][1], '', $tagslib );
1010
                       $calculated .= $subfieldvalue . $sep unless $subfieldcode == "9"
1011
                   }
1012
                   $calculated =~ s/$sep$//g;
1013
1014
                   # field builded, store the result
1015
                   if ( $calculated && !$hasputtextbefore ) {    # put textbefore if not done
1016
                       $blocres .= $textbefore;
1017
                       $hasputtextbefore = 1;
1018
                   }
1019
1020
                   $blocres .= $calculated;
1021
                }
1022
                $blocres .= $textafter if $hasputtextbefore;
999
            } else {
1023
            } else {
1000
                foreach my $field (@fieldslist) {
1024
                foreach my $field (@fieldslist) {
1001
                    my $calculated = $analysestring;
1025
                    my $calculated = $analysestring;
1002
- 

Return to bug 3116