Lines 967-973
sub BuildSummary {
Link Here
|
967 |
foreach my $field ($record->field('2..')) { |
967 |
foreach my $field ($record->field('2..')) { |
968 |
push @authorized, { |
968 |
push @authorized, { |
969 |
heading => $field->as_string('abcdefghijlmnopqrstuvwxyz'), |
969 |
heading => $field->as_string('abcdefghijlmnopqrstuvwxyz'), |
970 |
hemain => $field->subfield('a'), |
970 |
hemain => ( $field->subfield('a') // undef ), |
971 |
field => $field->tag(), |
971 |
field => $field->tag(), |
972 |
}; |
972 |
}; |
973 |
} |
973 |
} |
Lines 979-985
sub BuildSummary {
Link Here
|
979 |
my $thesaurus = $field->subfield('2') ? "thes. : ".$thesaurus{"$field->subfield('2')"}." : " : ''; |
979 |
my $thesaurus = $field->subfield('2') ? "thes. : ".$thesaurus{"$field->subfield('2')"}." : " : ''; |
980 |
push @seefrom, { |
980 |
push @seefrom, { |
981 |
heading => $thesaurus . $field->as_string('abcdefghijlmnopqrstuvwxyz'), |
981 |
heading => $thesaurus . $field->as_string('abcdefghijlmnopqrstuvwxyz'), |
982 |
hemain => $field->subfield('a'), |
982 |
hemain => ( $field->subfield('a') // undef ), |
983 |
type => 'seefrom', |
983 |
type => 'seefrom', |
984 |
field => $field->tag(), |
984 |
field => $field->tag(), |
985 |
}; |
985 |
}; |
Lines 993-1001
sub BuildSummary {
Link Here
|
993 |
field => $_->tag, |
993 |
field => $_->tag, |
994 |
type => $type, |
994 |
type => $type, |
995 |
heading => $heading, |
995 |
heading => $heading, |
996 |
hemain => $_->subfield('a'), |
996 |
hemain => ( $_->subfield('a') // undef ), |
997 |
search => $heading, |
997 |
search => $heading, |
998 |
authid => $_->subfield('9'), |
998 |
authid => ( $_->subfield('9') // undef ), |
999 |
} |
999 |
} |
1000 |
} $record->field('5..'); |
1000 |
} $record->field('5..'); |
1001 |
|
1001 |
|
1002 |
- |
|
|