Lines 312-318
sub AddItem {
Link Here
|
312 |
|
312 |
|
313 |
ModZebra( $item->{biblionumber}, "specialUpdate", "biblioserver" ); |
313 |
ModZebra( $item->{biblionumber}, "specialUpdate", "biblioserver" ); |
314 |
|
314 |
|
315 |
logaction("CATALOGUING", "ADD", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); |
315 |
logaction("CATALOGUING", "ADD", $itemnumber, "item") if C4::Context->preference("CataloguingLogItems"); |
316 |
|
316 |
|
317 |
return ($item->{biblionumber}, $item->{biblioitemnumber}, $itemnumber); |
317 |
return ($item->{biblionumber}, $item->{biblioitemnumber}, $itemnumber); |
318 |
} |
318 |
} |
Lines 407-413
sub AddItemBatchFromMarc {
Link Here
|
407 |
push @itemnumbers, $itemnumber; # FIXME not checking error |
407 |
push @itemnumbers, $itemnumber; # FIXME not checking error |
408 |
$item->{'itemnumber'} = $itemnumber; |
408 |
$item->{'itemnumber'} = $itemnumber; |
409 |
|
409 |
|
410 |
logaction("CATALOGUING", "ADD", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); |
410 |
logaction("CATALOGUING", "ADD", $itemnumber, "item") if C4::Context->preference("CataloguingLogItems"); |
411 |
|
411 |
|
412 |
my $new_item_marc = _marc_from_item_hash($item, $frameworkcode, $unlinked_item_subfields); |
412 |
my $new_item_marc = _marc_from_item_hash($item, $frameworkcode, $unlinked_item_subfields); |
413 |
$item_field->replace_with($new_item_marc->field($itemtag)); |
413 |
$item_field->replace_with($new_item_marc->field($itemtag)); |
Lines 613-619
sub ModItem {
Link Here
|
613 |
# item status is possible |
613 |
# item status is possible |
614 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver" ); |
614 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver" ); |
615 |
|
615 |
|
616 |
logaction("CATALOGUING", "MODIFY", $itemnumber, "item ".Dumper($item)) if C4::Context->preference("CataloguingLog"); |
616 |
logaction("CATALOGUING", "MODIFY", $itemnumber, "item ".Dumper($item)) if C4::Context->preference("CataloguingLogItems"); |
617 |
} |
617 |
} |
618 |
|
618 |
|
619 |
=head2 ModItemTransfer |
619 |
=head2 ModItemTransfer |
Lines 689-695
sub DelItem {
Link Here
|
689 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver" ); |
689 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver" ); |
690 |
|
690 |
|
691 |
#search item field code |
691 |
#search item field code |
692 |
logaction("CATALOGUING", "DELETE", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); |
692 |
logaction("CATALOGUING", "DELETE", $itemnumber, "item") if C4::Context->preference("CataloguingLogItems"); |
693 |
return $deleted; |
693 |
return $deleted; |
694 |
} |
694 |
} |
695 |
|
695 |
|