|
Lines 133-138
BEGIN {
Link Here
|
| 133 |
&TransformHtmlToXml |
133 |
&TransformHtmlToXml |
| 134 |
&PrepareItemrecordDisplay |
134 |
&PrepareItemrecordDisplay |
| 135 |
&GetNoZebraIndexes |
135 |
&GetNoZebraIndexes |
|
|
136 |
&RemoveItemsAndAuthidsFromRecord |
| 136 |
); |
137 |
); |
| 137 |
} |
138 |
} |
| 138 |
|
139 |
|
|
Lines 2831-2836
sub GetNoZebraIndexes {
Link Here
|
| 2831 |
return %indexes; |
2832 |
return %indexes; |
| 2832 |
} |
2833 |
} |
| 2833 |
|
2834 |
|
|
|
2835 |
=head2 RemoveItemsAndAuthidsFromRecord |
| 2836 |
|
| 2837 |
RemoveItemsAndAuthidsFromRecord($record); |
| 2838 |
|
| 2839 |
Remove all items (952) from the record. |
| 2840 |
Also removes all authids (subfield 9 in headings) |
| 2841 |
|
| 2842 |
=cut |
| 2843 |
|
| 2844 |
sub RemoveItemsAndAuthidsFromRecord { |
| 2845 |
my $record = shift; |
| 2846 |
|
| 2847 |
# Remove all the items (952) from the record |
| 2848 |
foreach my $item ($record->field('952')) { |
| 2849 |
$record->delete_field($item); |
| 2850 |
} |
| 2851 |
|
| 2852 |
# Remove all authid links ($9) in the record |
| 2853 |
foreach my $heading qw(100 110 111 130 440 600 610 611 630 648 650 651 655 700 710 711 730 800 810 811 830) { |
| 2854 |
foreach my $field ($record->field($heading)) { |
| 2855 |
$field->delete_subfield(code => '9'); |
| 2856 |
unless($field->subfields()) { |
| 2857 |
$record->delete_field($field); |
| 2858 |
} |
| 2859 |
} |
| 2860 |
} |
| 2861 |
} |
| 2862 |
|
| 2834 |
=head2 EmbedItemsInMarcBiblio |
2863 |
=head2 EmbedItemsInMarcBiblio |
| 2835 |
|
2864 |
|
| 2836 |
EmbedItemsInMarcBiblio($marc, $biblionumber); |
2865 |
EmbedItemsInMarcBiblio($marc, $biblionumber); |