|
Lines 622-632
sub DelItem {
Link Here
|
| 622 |
my $record = GetMarcBiblio($biblionumber); |
622 |
my $record = GetMarcBiblio($biblionumber); |
| 623 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver" ); |
623 |
ModZebra( $biblionumber, "specialUpdate", "biblioserver" ); |
| 624 |
|
624 |
|
| 625 |
# backup the record |
|
|
| 626 |
my $copy2deleted = $dbh->prepare("UPDATE deleteditems SET marc=? WHERE itemnumber=?"); |
| 627 |
$copy2deleted->execute( $record->as_usmarc(), $itemnumber ); |
| 628 |
# 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). |
| 629 |
|
| 630 |
#search item field code |
625 |
#search item field code |
| 631 |
logaction("CATALOGUING", "DELETE", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); |
626 |
logaction("CATALOGUING", "DELETE", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); |
| 632 |
} |
627 |
} |
| 633 |
- |
|
|