From 7d8ad8f9f18f0db209321d4349c27820ac553024 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 3 Nov 2011 13:41:24 +0100 Subject: [PATCH] 7146 (Update timestamps when deleting a biblio) Currently, when you delete an item, the timestamp column in deleteditems is updated with current time. (This comes from an [unintentional] additional update statement in DelItem.) It makes deletion time visible. In the past, the marcxml was updated too at that moment, resulting in an updated timestamp in biblioitems too. The timestamp in biblio was not touched. If you delete a biblio however, the timestamps in deletedbiblio and deletedbiblioitems do not reflect time of deletion. They still show the time of last update before the record was deleted. This last update can be extracted from MARC field 005 too. This behavior is not consistent nor logical. I would suggest to add a statement in DelBiblio to force updating the timestamp in deletedbiblio(items) too. It makes the time of deletion visible in the record too. The time of deletion of a biblio can be very useful for e.g. synchronizing purposes. Signed-off-by: Julian Maurice Signed-off-by: Paul Poulain (cherry picked from commit 7ee0565f5ce75fac16de2dc06c170bc06a171e56) Signed-off-by: Chris Nighswonger --- C4/Biblio.pm | 18 ++++++++++++------ C4/Items.pm | 1 + 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 2ffd5345a9..1753664761 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -3352,9 +3352,12 @@ sub _koha_delete_biblio { $bkup_sth->finish; # delete the biblio - my $del_sth = $dbh->prepare("DELETE FROM biblio WHERE biblionumber=?"); - $del_sth->execute($biblionumber); - $del_sth->finish; + my $sth2 = $dbh->prepare("DELETE FROM biblio WHERE biblionumber=?"); + $sth2->execute($biblionumber); + # update the timestamp (Bugzilla 7146) + $sth2= $dbh->prepare("UPDATE deletedbiblio SET timestamp=NOW() WHERE biblionumber=?"); + $sth2->execute($biblionumber); + $sth2->finish; } $sth->finish; return undef; @@ -3398,9 +3401,12 @@ sub _koha_delete_biblioitems { $bkup_sth->finish; # delete the biblioitem - my $del_sth = $dbh->prepare("DELETE FROM biblioitems WHERE biblioitemnumber=?"); - $del_sth->execute($biblioitemnumber); - $del_sth->finish; + my $sth2 = $dbh->prepare("DELETE FROM biblioitems WHERE biblioitemnumber=?"); + $sth2->execute($biblioitemnumber); + # update the timestamp (Bugzilla 7146) + $sth2= $dbh->prepare("UPDATE deletedbiblioitems SET timestamp=NOW() WHERE biblioitemnumber=?"); + $sth2->execute($biblioitemnumber); + $sth2->finish; } $sth->finish; return undef; diff --git a/C4/Items.pm b/C4/Items.pm index 4a3c4e0ccc..0970eba49c 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -583,6 +583,7 @@ sub DelItem { # backup the record my $copy2deleted = $dbh->prepare("UPDATE deleteditems SET marc=? WHERE itemnumber=?"); $copy2deleted->execute( $record->as_usmarc(), $itemnumber ); + # 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). #search item field code logaction("CATALOGUING", "DELETE", $itemnumber, "item") if C4::Context->preference("CataloguingLog"); -- 2.39.5