|
Lines 1071-1082
sub BuildSummary {
Link Here
|
| 1071 |
heading => $field->as_string($subfields_to_report), |
1071 |
heading => $field->as_string($subfields_to_report), |
| 1072 |
hemain => ( $field->subfield( substr( $subfields_to_report, 0, 1 ) ) // undef ), |
1072 |
hemain => ( $field->subfield( substr( $subfields_to_report, 0, 1 ) ) // undef ), |
| 1073 |
field => $tag, |
1073 |
field => $tag, |
|
|
1074 |
relator => ( $field->subfield( 'e' ) // undef ), |
| 1074 |
}; |
1075 |
}; |
| 1075 |
} else { |
1076 |
} else { |
| 1076 |
push @authorized, { |
1077 |
push @authorized, { |
| 1077 |
heading => $field->as_string(), |
1078 |
heading => $field->as_string(), |
| 1078 |
hemain => ( $field->subfield('a') // undef ), |
1079 |
hemain => ( $field->subfield('a') // undef ), |
| 1079 |
field => $tag, |
1080 |
field => $tag, |
|
|
1081 |
relator => ( $field->subfield( 'e' ) // undef ), |
| 1080 |
}; |
1082 |
}; |
| 1081 |
} |
1083 |
} |
| 1082 |
} |
1084 |
} |