Model::Stories: check introtext exists in create method

diff --git a/src/newslash_web/lib/Newslash/Model/Stories.pm b/src/newslash_web/lib/Newslash/Model/Stories.pm
index ea23f27..92f9353 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Stories.pm
+++ b/src/newslash_web/lib/Newslash/Model/Stories.pm
@@ -290,7 +290,7 @@ sub create {
     # check parameters
     my $msg = "";
     $msg = "no title" if !$params->{title};
-    $msg = "no title" if !$params->{title};
+    $msg = "no introtext" if !$params->{introtext};
     $msg = "no uid" if !$params->{uid};
     $msg = "no topics" if !defined $params->{topics_chosen};