Model::Submission: fix hard_delte()

diff --git a/src/newslash_web/lib/Newslash/Model/Submissions.pm b/src/newslash_web/lib/Newslash/Model/Submissions.pm
index 39a8a48..e782081 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Submissions.pm
+++ b/src/newslash_web/lib/Newslash/Model/Submissions.pm
@@ -594,10 +594,18 @@ sub hard_delete {
 
     my $dbh = $self->start_transaction;
 
+    # delete submissions
     my $sql = "DELETE FROM submissions WHERE subid = ?";
     my $rs = $dbh->do($sql, undef, $subid);
     if (!defined $rs || $rs == 0) {
-        Mojo::Log->new->warn("DELETE FROM submission failed. stoid is $subid.");
+        Mojo::Log->new->warn("DELETE FROM submissions failed. stoid is $subid.");
+    }
+
+    # delete submission_param
+    $sql = "DELETE FROM submission_param WHERE subid = ?";
+     $rs = $dbh->do($sql, undef, $subid);
+    if (!defined $rs || $rs == 0) {
+        Mojo::Log->new->warn("DELETE FROM submission_param failed. stoid is $subid.");
     }
 
     # delete from firehose