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