Model::Comments: fix select() occurs error when multiple condition given

diff --git a/src/newslash_web/lib/Newslash/Model/Comments.pm b/src/newslash_web/lib/Newslash/Model/Comments.pm
index b3e9ded..ca00c58 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Comments.pm
+++ b/src/newslash_web/lib/Newslash/Model/Comments.pm
@@ -72,7 +72,7 @@ sub select {
         }
     }
 
-    my $where_clause = @clauses ? 'WHERE ' . join(' ', @clauses) : "";
+    my $where_clause = @clauses ? 'WHERE ' . join(' AND ', @clauses) : "";
 
     my ($orderby, $orderby_values) = $self->build_orderby_clause({columns => {timestamp => 'comments.date'}}, $params);
     if (@$orderby_values) {