Delete past answers for a user when the user is deleted.

drgrice1 · Nov 2, 2023 · 7a7247d · 7a7247d
1 parent 46f2fcf
commit 7a7247d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/WeBWorK/DB.pm b/lib/WeBWorK/DB.pm
@@ -582,6 +582,7 @@ sub deleteUser {
 	$self->deleteGlobalUserAchievement($userID);
 	$self->deletePermissionLevel($userID);
 	$self->deleteKey($userID);
+	$self->{past_answer}->delete_where({ user_id => $userID });
 	return $self->{user}->delete($userID);
 }