From 8d7ba4363b268df0ea4fa835c718c50d80d863ab Mon Sep 17 00:00:00 2001
From: hylom <hylom@users.sourceforge.jp>
Date: Tue, 28 Feb 2017 19:47:06 +0900
Subject: [PATCH] Model::Moderations: create() return moderation id

---
 src/newslash_web/lib/Newslash/Model/Moderations.pm | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/src/newslash_web/lib/Newslash/Model/Moderations.pm b/src/newslash_web/lib/Newslash/Model/Moderations.pm
index 46ffea59..e8077739 100644
--- a/src/newslash_web/lib/Newslash/Model/Moderations.pm
+++ b/src/newslash_web/lib/Newslash/Model/Moderations.pm
@@ -160,8 +160,11 @@ sub create {
         || ($new_score > $mod_params->{comment_maxscore}
             && $reason->{val} + $comment->{tweak} > 0)) {
         # current score is max or min limit, so create moderate log only.
-        $self->create_log($user, $comment, $reason, 0);
-        return 1;
+        my $mod_id = $self->create_log($user, $comment, $reason, 0);
+        if (!$mod_id) {
+            return;
+        }
+        return $mod_id;
     }
 
     # change moderator's moderate points, token, totalmods
@@ -218,9 +221,13 @@ sub create {
     }
 
     # create moderationlog (createModeratorLog)
-    $self->create_log($user, $comment, $reason, 1);
+    my $mod_id = $self->create_log($user, $comment, $reason, 1);
 
-    # TODO: send message...
+    if (!$mod_id) {
+        $self->rollback;
+        return;
+    }
+    return $mod_id;
 
     $self->commit;
     return 1;
@@ -400,7 +407,7 @@ EOSQL
     # createModTag
     # ... tag moderation is deprecated, so nothing to do
 
-    return 1;
+    return $mod_id;
 }
 
 
-- 
2.11.0