Lines 649-659
sub DelItem {
Link Here
|
649 |
my $record = GetMarcBiblio($biblionumber); |
649 |
my $record = GetMarcBiblio($biblionumber); |
650 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver" ); |
650 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver" ); |
651 |
|
651 |
|
652 |
# backup the record |
|
|
653 |
my $copy2deleted = $dbh->prepare("UPDATE deleteditems SET marc=? WHERE itemnumber=?"); |
654 |
$copy2deleted->execute( $record->as_usmarc(), $itemnumber ); |
655 |
# 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). |
656 |
|
657 |
#search item field code |
652 |
#search item field code |
658 |
logaction("CATALOGUING", "DELETE", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); |
653 |
logaction("CATALOGUING", "DELETE", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); |
659 |
} |
654 |
} |
660 |
- |
|
|