|
Lines 136-141
BEGIN {
Link Here
|
| 136 |
&TransformHtmlToMarc |
136 |
&TransformHtmlToMarc |
| 137 |
&TransformHtmlToXml |
137 |
&TransformHtmlToXml |
| 138 |
prepare_host_field |
138 |
prepare_host_field |
|
|
139 |
&RemoveItemsAndAuthidsFromRecord |
| 139 |
); |
140 |
); |
| 140 |
} |
141 |
} |
| 141 |
|
142 |
|
|
Lines 2777-2782
sub get_koha_field_from_marc {
Link Here
|
| 2777 |
return $kohafield; |
2778 |
return $kohafield; |
| 2778 |
} |
2779 |
} |
| 2779 |
|
2780 |
|
|
|
2781 |
=head2 RemoveItemsAndAuthidsFromRecord |
| 2782 |
|
| 2783 |
RemoveItemsAndAuthidsFromRecord($record); |
| 2784 |
|
| 2785 |
Remove all items (952) from the record. |
| 2786 |
Also removes all authids (subfield 9 in headings) |
| 2787 |
|
| 2788 |
=cut |
| 2789 |
|
| 2790 |
sub RemoveItemsAndAuthidsFromRecord { |
| 2791 |
my $record = shift; |
| 2792 |
my $frameworkcode = shift || ''; |
| 2793 |
|
| 2794 |
if (!$record) { |
| 2795 |
carp('RemoveItemsAndAuthidsFromRecord called with undefined record'); |
| 2796 |
return; |
| 2797 |
} |
| 2798 |
|
| 2799 |
my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField( "items.itemnumber", $frameworkcode ); |
| 2800 |
|
| 2801 |
# Remove all the items from the record |
| 2802 |
foreach my $item ($record->field($itemtag)) { |
| 2803 |
$record->delete_field($item); |
| 2804 |
} |
| 2805 |
|
| 2806 |
# Remove all subfield ($9) in the record (marcflavour independent) |
| 2807 |
my @fields = $record->fields(); |
| 2808 |
foreach my $field (@fields) { |
| 2809 |
next if ( $field->is_control_field()); |
| 2810 |
$field->delete_subfield(code => '9'); |
| 2811 |
unless($field->subfields()) { |
| 2812 |
$record->delete_field($field); |
| 2813 |
} |
| 2814 |
} |
| 2815 |
} |
| 2816 |
|
| 2780 |
=head2 TransformMarcToKohaOneField |
2817 |
=head2 TransformMarcToKohaOneField |
| 2781 |
|
2818 |
|
| 2782 |
$result = TransformMarcToKohaOneField( $kohatable, $kohafield, $record, $result, $frameworkcode ) |
2819 |
$result = TransformMarcToKohaOneField( $kohatable, $kohafield, $record, $result, $frameworkcode ) |