|
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 |
|