From 2b4975ab63f8926919244c97bd75db0a0e1dc89e Mon Sep 17 00:00:00 2001
From: hylom <hylom@users.sourceforge.jp>
Date: Tue, 28 Feb 2017 19:46:45 +0900
Subject: [PATCH] Model::Metamoderations.pm: create() returns metamoderation id

---
 src/newslash_web/lib/Newslash/Model/Metamoderations.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/newslash_web/lib/Newslash/Model/Metamoderations.pm b/src/newslash_web/lib/Newslash/Model/Metamoderations.pm
index 6b1cf7f7..04f332f4 100644
--- a/src/newslash_web/lib/Newslash/Model/Metamoderations.pm
+++ b/src/newslash_web/lib/Newslash/Model/Metamoderations.pm
@@ -107,8 +107,8 @@ sub create {
     $self->start_transaction;
 
     # create metamod
-    my $rs = $self->_create_metamodlog($user, $moderation, $value);
-    if (!$rs) {
+    my $m2id = $self->_create_metamodlog($user, $moderation, $value);
+    if (!$m2id) {
         $self->rollback;
         $self->set_error("metamodlog create failed");
         return;
@@ -185,7 +185,7 @@ sub create {
     $users->update_info(uid => $user->{uid}, %$new_params);
 
     $self->commit;
-    return 1;
+    return $m2id;
 }
 
 sub _get_fixed_moderator_scores {
@@ -383,8 +383,9 @@ EOSQL
         $self->disconnect_db;
         return;
     }
+    my $m2id = $dbh->last_insert_id(undef, undef, undef, undef);
     $self->disconnect_db;
-    return $rs;
+    return $m2id;
 }
 
 
-- 
2.11.0