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

(-)a/C4/AuthoritiesMarc.pm (-10 / +3 lines)
Lines 992-998 sub BuildSummary { Link Here
992
        my $handler = C4::Heading::MARC21->new();
992
        my $handler = C4::Heading::MARC21->new();
993
        my $subfields_to_report;
993
        my $subfields_to_report;
994
        my $subfields_to_subdivision="";
994
        my $subfields_to_subdivision="";
995
        my $delimiter = " -- ";
995
        my $delimiter = C4::Context->preference('AuthoritySeparator');
996
996
        foreach my $field ($record->field('1..')) {
997
        foreach my $field ($record->field('1..')) {
997
            my $tag = $field->tag();
998
            my $tag = $field->tag();
998
            next if "152" eq $tag;
999
            next if "152" eq $tag;
Lines 1077-1111 sub BuildSummary { Link Here
1077
            if ($tag eq '700') {
1078
            if ($tag eq '700') {
1078
                $subfields_to_report = 'abcdefghjklmnopqrst';
1079
                $subfields_to_report = 'abcdefghjklmnopqrst';
1079
                $subfields_to_subdivision='vxyz';
1080
                $subfields_to_subdivision='vxyz';
1080
                $delimiter=" -- ";
1081
            } elsif ($tag eq '710') {
1081
            } elsif ($tag eq '710') {
1082
                $subfields_to_report = 'abcdefghklmnoprst';
1082
                $subfields_to_report = 'abcdefghklmnoprst';
1083
                $subfields_to_subdivision='vxyz';
1083
                $subfields_to_subdivision='vxyz';
1084
                $delimiter=" -- ";
1085
            } elsif ($tag eq '711') {
1084
            } elsif ($tag eq '711') {
1086
                $subfields_to_report = 'acdefghklnpqst';
1085
                $subfields_to_report = 'acdefghklnpqst';
1087
                $subfields_to_subdivision='vxyz';
1086
                $subfields_to_subdivision='vxyz';
1088
                $delimiter=" -- ";
1089
            } elsif ($tag eq '730') {
1087
            } elsif ($tag eq '730') {
1090
                $subfields_to_report = 'adfghklmnoprst';
1088
                $subfields_to_report = 'adfghklmnoprst';
1091
                $subfields_to_subdivision='vxyz';
1089
                $subfields_to_subdivision='vxyz';
1092
                $delimiter=" -- ";
1093
            } elsif ($tag eq '748') {
1090
            } elsif ($tag eq '748') {
1094
                $subfields_to_report = 'ab';
1091
                $subfields_to_report = 'ab';
1095
                $subfields_to_subdivision='vxyz';
1092
                $subfields_to_subdivision='vxyz';
1096
                $delimiter=" -- ";
1097
            } elsif ($tag eq '750') {
1093
            } elsif ($tag eq '750') {
1098
                $subfields_to_report = 'ab';
1094
                $subfields_to_report = 'ab';
1099
                $subfields_to_subdivision='vxyz';
1095
                $subfields_to_subdivision='vxyz';
1100
                $delimiter=" -- ";
1101
            } elsif ($tag eq '751') {
1096
            } elsif ($tag eq '751') {
1102
                $subfields_to_report = 'a';
1097
                $subfields_to_report = 'a';
1103
                $subfields_to_subdivision='vxyz';
1098
                $subfields_to_subdivision='vxyz';
1104
                $delimiter=" -- ";
1105
            } elsif ($tag eq '755') {
1099
            } elsif ($tag eq '755') {
1106
                $subfields_to_report = 'abvxyz';
1100
                $subfields_to_report = 'abvxyz';
1107
                $subfields_to_subdivision='vxyz';
1101
                $subfields_to_subdivision='vxyz';
1108
                $delimiter=" -- ";
1109
            } elsif ($tag eq '780') {
1102
            } elsif ($tag eq '780') {
1110
                $subfields_to_report = 'vxyz';
1103
                $subfields_to_report = 'vxyz';
1111
                $delimiter=" ";
1104
                $delimiter=" ";
Lines 1116-1122 sub BuildSummary { Link Here
1116
                $subfields_to_report = 'vxyz';
1109
                $subfields_to_report = 'vxyz';
1117
                $delimiter=" ";
1110
                $delimiter=" ";
1118
            } elsif ($tag eq '785') {
1111
            } elsif ($tag eq '785') {
1119
               $subfields_to_report = 'vxyz';
1112
                $subfields_to_report = 'vxyz';
1120
                $delimiter=" ";
1113
                $delimiter=" ";
1121
            }
1114
            }
1122
1115
(-)a/t/db_dependent/AuthoritiesMarc.t (-3 / +5 lines)
Lines 153-159 my $expected_marc21_summary = { Link Here
153
                 ],
153
                 ],
154
    'seefrom' => [],
154
    'seefrom' => [],
155
    'label' => 'Geographic Name',
155
    'label' => 'Geographic Name',
156
    'type' => 'Geographic Name'
156
    'type' => 'Geographic Name',
157
    'equalterm' => []
157
};
158
};
158
is_deeply(
159
is_deeply(
159
    BuildSummary(C4::AuthoritiesMarc::GetAuthority(2), 2, 'GEOGR_NAME'),
160
    BuildSummary(C4::AuthoritiesMarc::GetAuthority(2), 2, 'GEOGR_NAME'),
Lines 196-202 my $expected_unimarc_name_summary = { Link Here
196
    'seealso' => [],
197
    'seealso' => [],
197
    'seefrom' => [],
198
    'seefrom' => [],
198
    'summary' => 'Fossey, Brigitte',
199
    'summary' => 'Fossey, Brigitte',
199
    'type' => 'Auteur'
200
    'type' => 'Auteur',
201
    'equalterm' => []
202
200
};
203
};
201
204
202
is_deeply(
205
is_deeply(
203
- 

Return to bug 27943