Model::Comments: fix a problem select() can returns up to 10 results

diff --git a/src/newslash_web/lib/Newslash/Model/Comments.pm b/src/newslash_web/lib/Newslash/Model/Comments.pm
index 36e24c8..a087bd7 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Comments.pm
+++ b/src/newslash_web/lib/Newslash/Model/Comments.pm
@@ -84,7 +84,8 @@ sub select {
     if (@$limit_values) {
         push @values, @$limit_values;
     }
-    $limit_clause = "LIMIT 10" if !$limit_clause;
+    # TODO: give reasonable LIMIT Value...
+    $limit_clause = "LIMIT 1000" if !$limit_clause;
 
     my $dbh = $self->connect_db;