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