add '<user> 曰く' to intro_text when story creates from submission

diff --git a/src/newslash_web/lib/Newslash/Web/Controller/API/Story.pm b/src/newslash_web/lib/Newslash/Web/Controller/API/Story.pm
index fd97e4b..18ddf67 100644 (file)
--- a/src/newslash_web/lib/Newslash/Web/Controller/API/Story.pm
+++ b/src/newslash_web/lib/Newslash/Web/Controller/API/Story.pm
@@ -10,9 +10,11 @@ use Data::Dumper;
 sub _submission_to_story {
     my ($c, $submission) = @_;
     my $story = {};
-    for my $k (qw{title intro_text tags}) {
+    for my $k (qw{title tags}) {
         $story->{$k} = $submission->{$k};
     }
+    # convert intro_text
+    $story->{intro_text} = $c->tt2renderer->render("system/submission/submission_formatter", $submission);
     $story->{submitter} = $submission->{uid};
     return $story;
 }