Lines 121-126
BEGIN {
Link Here
|
121 |
&TransformHtmlToXml |
121 |
&TransformHtmlToXml |
122 |
&PrepareItemrecordDisplay |
122 |
&PrepareItemrecordDisplay |
123 |
&GetNoZebraIndexes |
123 |
&GetNoZebraIndexes |
|
|
124 |
&RemoveItemsAndAuthidsFromRecord |
124 |
); |
125 |
); |
125 |
} |
126 |
} |
126 |
|
127 |
|
Lines 2490-2495
sub GetNoZebraIndexes {
Link Here
|
2490 |
return %indexes; |
2491 |
return %indexes; |
2491 |
} |
2492 |
} |
2492 |
|
2493 |
|
|
|
2494 |
=head2 RemoveItemsAndAuthidsFromRecord |
2495 |
|
2496 |
RemoveItemsAndAuthidsFromRecord($record); |
2497 |
|
2498 |
Remove all items (952) from the record. |
2499 |
Also removes all authids (subfield 9 in headings) |
2500 |
|
2501 |
=cut |
2502 |
|
2503 |
sub RemoveItemsAndAuthidsFromRecord { |
2504 |
my $record = shift; |
2505 |
|
2506 |
# Remove all the items (952) from the record |
2507 |
foreach my $item ($record->field('952')) { |
2508 |
$record->delete_field($item); |
2509 |
} |
2510 |
|
2511 |
# Remove all authid links ($9) in the record |
2512 |
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) { |
2513 |
foreach my $field ($record->field($heading)) { |
2514 |
$field->delete_subfield(code => '9'); |
2515 |
} |
2516 |
} |
2517 |
} |
2518 |
|
2493 |
=head1 INTERNAL FUNCTIONS |
2519 |
=head1 INTERNAL FUNCTIONS |
2494 |
|
2520 |
|
2495 |
=head2 _DelBiblioNoZebra($biblionumber,$record,$server); |
2521 |
=head2 _DelBiblioNoZebra($biblionumber,$record,$server); |