Model::Stories: fix introtext parameter check in create()

diff --git a/src/newslash_web/lib/Newslash/Model/Stories.pm b/src/newslash_web/lib/Newslash/Model/Stories.pm
index de277e5..1dbd836 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Stories.pm
+++ b/src/newslash_web/lib/Newslash/Model/Stories.pm
@@ -547,7 +547,7 @@ sub create {
     # check parameters
     my $msg = "";
     $msg = "no_title" if !$params->{title};
-    $msg = "no_introtext" if !$params->{introtext} || $params->{intro_text};
+    $msg = "no_introtext" if !$params->{introtext} && !$params->{intro_text};
     $msg = "no_topics" if !defined $params->{topics_chosen};
     $msg = "invalid_user" if !defined $user->{uid};
 

diff --git a/src/newslash_web/t/models/submissions.t b/src/newslash_web/t/models/submissions.t
index e459547..313a793 100644 (file)
--- a/src/newslash_web/t/models/submissions.t
+++ b/src/newslash_web/t/models/submissions.t
@@ -28,7 +28,7 @@ subtest 'create/select/update submissions' => sub {
 
     my $params = {
                   user => $user,
-                  title => "test story",
+                  title => "test story for submission",
                   url => "http://example.com/",
                   email => 'foo@example.com',
                   introtext => '<p>foo bar hoge</p>',
@@ -39,6 +39,7 @@ subtest 'create/select/update submissions' => sub {
                  };
     my $subid = $submissions->create(%$params);
     ok($subid, "create submission");
+    diag $submissions->last_error if !$subid;
 
     my $subm = $submissions->select(submission_id => $subid);
     ok($subm, "select story by submission_id");