Lines 998-1009
sub BuildSummary {
Link Here
|
998 |
heading => $field->as_string($subfields_to_report), |
998 |
heading => $field->as_string($subfields_to_report), |
999 |
hemain => ( $field->subfield( substr($subfields_to_report, 0, 1) ) // undef ), |
999 |
hemain => ( $field->subfield( substr($subfields_to_report, 0, 1) ) // undef ), |
1000 |
field => $tag, |
1000 |
field => $tag, |
|
|
1001 |
relator => ( $field->subfield( 'e' ) // undef ), |
1001 |
}; |
1002 |
}; |
1002 |
} else { |
1003 |
} else { |
1003 |
push @authorized, { |
1004 |
push @authorized, { |
1004 |
heading => $field->as_string(), |
1005 |
heading => $field->as_string(), |
1005 |
hemain => ( $field->subfield( 'a' ) // undef ), |
1006 |
hemain => ( $field->subfield( 'a' ) // undef ), |
1006 |
field => $tag, |
1007 |
field => $tag, |
|
|
1008 |
relator => ( $field->subfield( 'e' ) // undef ), |
1007 |
}; |
1009 |
}; |
1008 |
} |
1010 |
} |
1009 |
} |
1011 |
} |