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

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

Return to bug 21036