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