Attachment #157175 for bug #27943

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




        my $handler = C4::Heading::MARC21->new();
        my $subfields_to_report;
        my $subfields_to_subdivision="";
        my $delimiter = C4::Context->preference('AuthoritySeparator');

        foreach my $field ($record->field('1..')) {
            my $tag = $field->tag();
            next if "152" eq $tag;

            if ($tag eq '700') {
                $subfields_to_report = 'abcdefghjklmnopqrst';
                $subfields_to_subdivision='vxyz';
                $delimiter=" -- ";
            } elsif ($tag eq '710') {
                $subfields_to_report = 'abcdefghklmnoprst';
                $subfields_to_subdivision='vxyz';
                $delimiter=" -- ";
            } elsif ($tag eq '711') {
                $subfields_to_report = 'acdefghklnpqst';
                $subfields_to_subdivision='vxyz';
                $delimiter=" -- ";
            } elsif ($tag eq '730') {
                $subfields_to_report = 'adfghklmnoprst';
                $subfields_to_subdivision='vxyz';
                $delimiter=" -- ";
            } elsif ($tag eq '748') {
                $subfields_to_report = 'ab';
                $subfields_to_subdivision='vxyz';
                $delimiter=" -- ";
            } elsif ($tag eq '750') {
                $subfields_to_report = 'ab';
                $subfields_to_subdivision='vxyz';
                $delimiter=" -- ";
            } elsif ($tag eq '751') {
                $subfields_to_report = 'a';
                $subfields_to_subdivision='vxyz';
                $delimiter=" -- ";
            } elsif ($tag eq '755') {
                $subfields_to_report = 'abvxyz';
                $subfields_to_subdivision='vxyz';
                $delimiter=" -- ";
            } elsif ($tag eq '780') {
                $subfields_to_report = 'vxyz';
                $delimiter=" ";

                $subfields_to_report = 'vxyz';
                $delimiter=" ";
            } elsif ($tag eq '785') {
                $subfields_to_report = 'vxyz';
                $delimiter=" ";
            }


Lines 153-159 my $expected_marc21_summary = { Link Here

(-)a/t/db_dependent/AuthoritiesMarc.t (-3 / +5 lines)
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

Lines 992-998 sub BuildSummary { Link Here

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