Model::Comments: now 'select' method returns Hash, not Array of Hash

diff --git a/src/newslash_web/lib/Newslash/Model/Comments.pm b/src/newslash_web/lib/Newslash/Model/Comments.pm
index a8de273..c590b38 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Comments.pm
+++ b/src/newslash_web/lib/Newslash/Model/Comments.pm
@@ -76,8 +76,11 @@ EOSQL
     if (!$comments) {
         $dbh->disconnect();
         return undef;
-  }
+    }
 
+    if ($query_type eq 'cid') {
+        return $comments->[0];
+    }
     if ($query_type eq 'discussion_id') {
         my $root = $self->build_comment_tree($comments);
     }
@@ -175,6 +178,7 @@ sub create {
     $params->{pid} ||= 0;
     if ($params->{pid}) {
         my $parent = $self->select(cid => $params->{pid});
+
         if (!$parent) {
             $self->set_error("parent comment not exists", 100);
             return;