|
Lines 987-993
sub BuildSummary {
Link Here
|
| 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 |
|