Basic activity log for changes to patch table.

1 files changed, 9 insertions, 1 deletions

diff --git a/perl-lib/PgCommitFest/Patch.pm b/perl-lib/PgCommitFest/Patch.pm
index 5ebeb42..4a769c8 100644
--- a/perl-lib/PgCommitFest/Patch.pm
+++ b/perl-lib/PgCommitFest/Patch.pm
@@ -28,10 +28,16 @@ EOM
 
 sub delete {
 	my ($r) = @_;
-	$r->authenticate('require_login' => 1);
+	my $aa = $r->authenticate('require_login' => 1);
 	$r->set_title('Delete Patch');
 	my $d;
 	eval {
+		# Don't bump last_updated_time, as that would trigger an activity log
+		# record.  But do change the last_updater, so that the subsequent
+		# delete picks up the correct user id.  This is a pretty ugly kludge,
+		# but I don't immediately have a better idea.
+		$r->db->update('patch', { 'id' => $r->cgi_required_id },
+			{ 'last_updater' => $aa->{'userid'} });
 		$d = $r->db->select_one(<<EOM, $r->cgi_required_id);
 DELETE FROM patch AS p
 	USING commitfest_topic t
@@ -132,6 +138,8 @@ EOM
 
 	# Handle commit.
 	if ($r->cgi('go') && ! $r->is_error()) {
+		$value{'last_updated_time'} = \'now()';
+		$value{'last_updater'} = $aa->{'userid'};
 		if (defined $id) {
 			$r->db->update('patch', { 'id' => $id }, \%value);
 		}