|
Lines 994-1007
sub BuildSummary {
Link Here
|
| 994 |
if ($type eq 'subfi') { |
994 |
if ($type eq 'subfi') { |
| 995 |
push @seefrom, { |
995 |
push @seefrom, { |
| 996 |
heading => $field->as_string($marc21subfields), |
996 |
heading => $field->as_string($marc21subfields), |
| 997 |
hemain => $field->subfield( substr($marc21subfields, 0, 1) ), |
997 |
hemain => scalar $field->subfield( substr($marc21subfields, 0, 1) ), |
| 998 |
type => ($field->subfield('i') || ''), |
998 |
type => ($field->subfield('i') || ''), |
| 999 |
field => $field->tag(), |
999 |
field => $field->tag(), |
| 1000 |
}; |
1000 |
}; |
| 1001 |
} else { |
1001 |
} else { |
| 1002 |
push @seefrom, { |
1002 |
push @seefrom, { |
| 1003 |
heading => $field->as_string($marc21subfields), |
1003 |
heading => $field->as_string($marc21subfields), |
| 1004 |
hemain => $field->subfield( substr($marc21subfields, 0, 1) ), |
1004 |
hemain => scalar $field->subfield( substr($marc21subfields, 0, 1) ), |
| 1005 |
type => $type, |
1005 |
type => $type, |
| 1006 |
field => $field->tag(), |
1006 |
field => $field->tag(), |
| 1007 |
}; |
1007 |
}; |
|
Lines 1017-1024
sub BuildSummary {
Link Here
|
| 1017 |
if ($type eq 'subfi') { |
1017 |
if ($type eq 'subfi') { |
| 1018 |
push @seealso, { |
1018 |
push @seealso, { |
| 1019 |
heading => $field->as_string($marc21subfields), |
1019 |
heading => $field->as_string($marc21subfields), |
| 1020 |
hemain => $field->subfield( substr($marc21subfields, 0, 1) ), |
1020 |
hemain => scalar $field->subfield( substr($marc21subfields, 0, 1) ), |
| 1021 |
type => $field->subfield('i'), |
1021 |
type => scalar $field->subfield('i'), |
| 1022 |
field => $field->tag(), |
1022 |
field => $field->tag(), |
| 1023 |
search => $field->as_string($marc21subfields) || '', |
1023 |
search => $field->as_string($marc21subfields) || '', |
| 1024 |
authid => $field->subfield('9') || '' |
1024 |
authid => $field->subfield('9') || '' |
|
Lines 1026-1032
sub BuildSummary {
Link Here
|
| 1026 |
} else { |
1026 |
} else { |
| 1027 |
push @seealso, { |
1027 |
push @seealso, { |
| 1028 |
heading => $field->as_string($marc21subfields), |
1028 |
heading => $field->as_string($marc21subfields), |
| 1029 |
hemain => $field->subfield( substr($marc21subfields, 0, 1) ), |
1029 |
hemain => scalar $field->subfield( substr($marc21subfields, 0, 1) ), |
| 1030 |
type => $type, |
1030 |
type => $type, |
| 1031 |
field => $field->tag(), |
1031 |
field => $field->tag(), |
| 1032 |
search => $field->as_string($marc21subfields) || '', |
1032 |
search => $field->as_string($marc21subfields) || '', |
| 1033 |
- |
|
|