Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

7146 (Update timestamps when deleting a biblio)

Browse source 
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 <julian.maurice@biblibre.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
This commit is contained in:
Marcel de Rooy 2011-11-03 13:41:24 +01:00 committed by Paul Poulain
parent 0038b0df15
commit 7ee0565f5c
2 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
C4/Biblio.pm
View file

@ -3522,9 +3522,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;
@ -3568,9 +3571,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;

1
C4/Items.pm
View file

@ -587,6 +587,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");