View | Details | Raw Unified | Return to bug 21036
Collapse All | Expand All

(-)a/C4/AuthoritiesMarc.pm (-6 / +5 lines)
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
- 

Return to bug 21036