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

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

Return to bug 11797