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