Lines 270-276
sub AddItem {
Link Here
|
270 |
|
270 |
|
271 |
ModZebra( $item->{biblionumber}, "specialUpdate", "biblioserver", undef, undef ); |
271 |
ModZebra( $item->{biblionumber}, "specialUpdate", "biblioserver", undef, undef ); |
272 |
|
272 |
|
273 |
logaction("CATALOGUING", "ADD", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); |
273 |
logaction("CATALOGUING", "ADD", $itemnumber, Dumper($item), "ITEM") if C4::Context->preference("CataloguingLog"); |
274 |
|
274 |
|
275 |
return ($item->{biblionumber}, $item->{biblioitemnumber}, $itemnumber); |
275 |
return ($item->{biblionumber}, $item->{biblioitemnumber}, $itemnumber); |
276 |
} |
276 |
} |
Lines 362-368
sub AddItemBatchFromMarc {
Link Here
|
362 |
push @itemnumbers, $itemnumber; # FIXME not checking error |
362 |
push @itemnumbers, $itemnumber; # FIXME not checking error |
363 |
$item->{'itemnumber'} = $itemnumber; |
363 |
$item->{'itemnumber'} = $itemnumber; |
364 |
|
364 |
|
365 |
logaction("CATALOGUING", "ADD", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); |
365 |
logaction("CATALOGUING", "ADD", $itemnumber, Dumper($item), "ITEM") if C4::Context->preference("CataloguingLog"); |
366 |
|
366 |
|
367 |
my $new_item_marc = _marc_from_item_hash($item, $frameworkcode, $unlinked_item_subfields); |
367 |
my $new_item_marc = _marc_from_item_hash($item, $frameworkcode, $unlinked_item_subfields); |
368 |
$item_field->replace_with($new_item_marc->field($itemtag)); |
368 |
$item_field->replace_with($new_item_marc->field($itemtag)); |
Lines 521-527
sub ModItem {
Link Here
|
521 |
# item status is possible |
521 |
# item status is possible |
522 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", undef, undef ); |
522 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver", undef, undef ); |
523 |
|
523 |
|
524 |
logaction("CATALOGUING", "MODIFY", $itemnumber, Dumper($item)) if C4::Context->preference("CataloguingLog"); |
524 |
logaction("CATALOGUING", "MODIFY", $itemnumber, Dumper($item), "ITEM") if C4::Context->preference("CataloguingLog"); |
525 |
} |
525 |
} |
526 |
|
526 |
|
527 |
=head2 ModItemTransfer |
527 |
=head2 ModItemTransfer |
Lines 590-596
sub DelItem {
Link Here
|
590 |
# This last update statement makes that the timestamp column in deleteditems is updated too. If you remove these lines, please add a line to update the timestamp separately. See Bugzilla report 7146 and Biblio.pm (DelBiblio). |
590 |
# This last update statement makes that the timestamp column in deleteditems is updated too. If you remove these lines, please add a line to update the timestamp separately. See Bugzilla report 7146 and Biblio.pm (DelBiblio). |
591 |
|
591 |
|
592 |
#search item field code |
592 |
#search item field code |
593 |
logaction("CATALOGUING", "DELETE", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); |
593 |
logaction("CATALOGUING", "DELETE", $itemnumber, "", "ITEM") if C4::Context->preference("CataloguingLog"); |
594 |
} |
594 |
} |
595 |
|
595 |
|
596 |
=head2 CheckItemPreSave |
596 |
=head2 CheckItemPreSave |