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