@@ -, +, @@ subfields in order Sponsored-by: Thammasat University --- C4/Biblio.pm | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -996,6 +996,30 @@ sub GetISBDView { } } $blocres .= $textafter if $hasputtextbefore; + } elsif ( $analysestring =~ /^all(.*)/ ) { + my $sep = $1 || " "; + + foreach my $field (@fieldslist) { + my $calculated = "\n"; + my $tag = $field->tag(); + my @subf = $field->subfields; + for my $i ( 0 .. $#subf ) { + my $valuecode = $subf[$i][1]; + my $subfieldcode = $subf[$i][0]; + my $subfieldvalue = GetAuthorisedValueDesc( $tag, $subf[$i][0], $subf[$i][1], '', $tagslib ); + $calculated .= $subfieldvalue . $sep unless $subfieldcode == "9" + } + $calculated =~ s/$sep$//g; + + # field builded, store the result + if ( $calculated && !$hasputtextbefore ) { # put textbefore if not done + $blocres .= $textbefore; + $hasputtextbefore = 1; + } + + $blocres .= $calculated; + } + $blocres .= $textafter if $hasputtextbefore; } else { foreach my $field (@fieldslist) { my $calculated = $analysestring; --