Lines 1044-1058
sub BuildSummary {
Link Here
|
1044 |
$subfields_to_report = 'vxyz'; |
1044 |
$subfields_to_report = 'vxyz'; |
1045 |
} |
1045 |
} |
1046 |
if ($subfields_to_report) { |
1046 |
if ($subfields_to_report) { |
|
|
1047 |
my $hemain = $field->subfield( substr($subfields_to_report, 0, 1) ); |
1047 |
push @authorized, { |
1048 |
push @authorized, { |
1048 |
heading => $field->as_string($subfields_to_report), |
1049 |
heading => $field->as_string($subfields_to_report), |
1049 |
hemain => $field->subfield( substr($subfields_to_report, 0, 1) ), |
1050 |
hemain => $hemain, |
1050 |
field => $tag, |
1051 |
field => $tag, |
1051 |
}; |
1052 |
}; |
1052 |
} else { |
1053 |
} else { |
|
|
1054 |
my $hemain = $field->subfield( 'a' ); |
1053 |
push @authorized, { |
1055 |
push @authorized, { |
1054 |
heading => $field->as_string(), |
1056 |
heading => $field->as_string(), |
1055 |
hemain => $field->subfield('a'), |
1057 |
hemain => $hemain, |
1056 |
field => $tag, |
1058 |
field => $tag, |
1057 |
}; |
1059 |
}; |
1058 |
} |
1060 |
} |
1059 |
- |
|
|