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