Lines 1176-1182
sub BuildSummary {
Link Here
|
1176 |
$delimiter = " "; |
1176 |
$delimiter = " "; |
1177 |
} |
1177 |
} |
1178 |
|
1178 |
|
1179 |
my $heading = $field->as_string($subfields_to_report); |
1179 |
my $heading; |
|
|
1180 |
if ($subfields_to_report) { |
1181 |
$heading = $field->as_string($subfields_to_report); |
1182 |
} else { |
1183 |
$heading = $field->as_string(); |
1184 |
} |
1180 |
|
1185 |
|
1181 |
if ($subfields_to_subdivision) { |
1186 |
if ($subfields_to_subdivision) { |
1182 |
my $subheading = $field->as_string( $subfields_to_subdivision, $delimiter ); |
1187 |
my $subheading = $field->as_string( $subfields_to_subdivision, $delimiter ); |
Lines 1193-1199
sub BuildSummary {
Link Here
|
1193 |
}; |
1198 |
}; |
1194 |
} else { |
1199 |
} else { |
1195 |
push @equalterm, { |
1200 |
push @equalterm, { |
1196 |
heading => $field->as_string(), |
1201 |
heading => $heading, |
1197 |
hemain => ( $field->subfield('a') // undef ), |
1202 |
hemain => ( $field->subfield('a') // undef ), |
1198 |
field => $tag, |
1203 |
field => $tag, |
1199 |
}; |
1204 |
}; |
1200 |
- |
|
|