Attachment #146945 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 987-993 sub BuildSummary { Link Here

(-)a/C4/AuthoritiesMarc.pm (-10 / +3 lines)
987	my $handler = C4::Heading::MARC21->new();	987	my $handler = C4::Heading::MARC21->new();
988	my $subfields_to_report;	988	my $subfields_to_report;
989	my $subfields_to_subdivision="";	989	my $subfields_to_subdivision="";
990	my $delimiter = " -- ";	990	my $delimiter = C4::Context->preference('AuthoritySeparator');
		991
991	foreach my $field ($record->field('1..')) {	992	foreach my $field ($record->field('1..')) {
992	my $tag = $field->tag();	993	my $tag = $field->tag();
993	next if "152" eq $tag;	994	next if "152" eq $tag;
Lines 1072-1106 sub BuildSummary { Link Here
1072	if ($tag eq '700') {	1073	if ($tag eq '700') {
1073	$subfields_to_report = 'abcdefghjklmnopqrst';	1074	$subfields_to_report = 'abcdefghjklmnopqrst';
1074	$subfields_to_subdivision='vxyz';	1075	$subfields_to_subdivision='vxyz';
1075	$delimiter=" -- ";
1076	} elsif ($tag eq '710') {	1076	} elsif ($tag eq '710') {
1077	$subfields_to_report = 'abcdefghklmnoprst';	1077	$subfields_to_report = 'abcdefghklmnoprst';
1078	$subfields_to_subdivision='vxyz';	1078	$subfields_to_subdivision='vxyz';
1079	$delimiter=" -- ";
1080	} elsif ($tag eq '711') {	1079	} elsif ($tag eq '711') {
1081	$subfields_to_report = 'acdefghklnpqst';	1080	$subfields_to_report = 'acdefghklnpqst';
1082	$subfields_to_subdivision='vxyz';	1081	$subfields_to_subdivision='vxyz';
1083	$delimiter=" -- ";
1084	} elsif ($tag eq '730') {	1082	} elsif ($tag eq '730') {
1085	$subfields_to_report = 'adfghklmnoprst';	1083	$subfields_to_report = 'adfghklmnoprst';
1086	$subfields_to_subdivision='vxyz';	1084	$subfields_to_subdivision='vxyz';
1087	$delimiter=" -- ";
1088	} elsif ($tag eq '748') {	1085	} elsif ($tag eq '748') {
1089	$subfields_to_report = 'ab';	1086	$subfields_to_report = 'ab';
1090	$subfields_to_subdivision='vxyz';	1087	$subfields_to_subdivision='vxyz';
1091	$delimiter=" -- ";
1092	} elsif ($tag eq '750') {	1088	} elsif ($tag eq '750') {
1093	$subfields_to_report = 'ab';	1089	$subfields_to_report = 'ab';
1094	$subfields_to_subdivision='vxyz';	1090	$subfields_to_subdivision='vxyz';
1095	$delimiter=" -- ";
1096	} elsif ($tag eq '751') {	1091	} elsif ($tag eq '751') {
1097	$subfields_to_report = 'a';	1092	$subfields_to_report = 'a';
1098	$subfields_to_subdivision='vxyz';	1093	$subfields_to_subdivision='vxyz';
1099	$delimiter=" -- ";
1100	} elsif ($tag eq '755') {	1094	} elsif ($tag eq '755') {
1101	$subfields_to_report = 'abvxyz';	1095	$subfields_to_report = 'abvxyz';
1102	$subfields_to_subdivision='vxyz';	1096	$subfields_to_subdivision='vxyz';
1103	$delimiter=" -- ";
1104	} elsif ($tag eq '780') {	1097	} elsif ($tag eq '780') {
1105	$subfields_to_report = 'vxyz';	1098	$subfields_to_report = 'vxyz';
1106	$delimiter=" ";	1099	$delimiter=" ";
Lines 1111-1117 sub BuildSummary { Link Here
1111	$subfields_to_report = 'vxyz';	1104	$subfields_to_report = 'vxyz';
1112	$delimiter=" ";	1105	$delimiter=" ";
1113	} elsif ($tag eq '785') {	1106	} elsif ($tag eq '785') {
1114	$subfields_to_report = 'vxyz';	1107	$subfields_to_report = 'vxyz';
1115	$delimiter=" ";	1108	$delimiter=" ";
1116	}	1109	}
1117		1110