Lines 281-290
sub AddItemBatchFromMarc {
Link Here
|
281 |
return (\@itemnumbers, \@errors); |
281 |
return (\@itemnumbers, \@errors); |
282 |
} |
282 |
} |
283 |
|
283 |
|
|
|
284 |
=head2 ModItemFromMarc |
285 |
|
286 |
my $item = ModItemFromMarc($item_marc, $biblionumber, $itemnumber[, $params]); |
287 |
|
288 |
The final optional parameter, C<$params>, expected to contain |
289 |
'skip_modzebra_update' key, which relayed down to Koha::Item/store, |
290 |
there it prevents calling of ModZebra (and Elasticsearch update), |
291 |
which takes most of the time in batch adds/deletes: ModZebra better |
292 |
to be called later in C<additem.pl> after the whole loop. |
293 |
|
294 |
$params: |
295 |
skip_modzebra_update => 1|0 |
296 |
|
297 |
=cut |
298 |
|
284 |
sub ModItemFromMarc { |
299 |
sub ModItemFromMarc { |
285 |
my $item_marc = shift; |
300 |
my ( $item_marc, $biblionumber, $itemnumber, $params ) @_; |
286 |
my $biblionumber = shift; |
|
|
287 |
my $itemnumber = shift; |
288 |
|
301 |
|
289 |
my $frameworkcode = C4::Biblio::GetFrameworkCode($biblionumber); |
302 |
my $frameworkcode = C4::Biblio::GetFrameworkCode($biblionumber); |
290 |
my ( $itemtag, $itemsubfield ) = C4::Biblio::GetMarcFromKohaField( "items.itemnumber" ); |
303 |
my ( $itemtag, $itemsubfield ) = C4::Biblio::GetMarcFromKohaField( "items.itemnumber" ); |
Lines 313-319
sub ModItemFromMarc {
Link Here
|
313 |
$item_object = $item_object->set_or_blank($item); |
326 |
$item_object = $item_object->set_or_blank($item); |
314 |
my $unlinked_item_subfields = _get_unlinked_item_subfields( $localitemmarc, $frameworkcode ); |
327 |
my $unlinked_item_subfields = _get_unlinked_item_subfields( $localitemmarc, $frameworkcode ); |
315 |
$item_object->more_subfields_xml(_get_unlinked_subfields_xml($unlinked_item_subfields)); |
328 |
$item_object->more_subfields_xml(_get_unlinked_subfields_xml($unlinked_item_subfields)); |
316 |
$item_object->store; |
329 |
$item_object->store({ skip_modzebra_update => $params->{skip_modzebra_update} }); |
317 |
|
330 |
|
318 |
return $item_object->unblessed; |
331 |
return $item_object->unblessed; |
319 |
} |
332 |
} |