From 8387cde1aaf26ec6d2e1cfe8fcf0a4397daa333f Mon Sep 17 00:00:00 2001 From: Angel Ortega Date: Tue, 6 Nov 2007 13:59:11 +0100 Subject: [PATCH] New argument to DBI search_stories(). --- Gruta/Source/DBI.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/Gruta/Source/DBI.pm b/Gruta/Source/DBI.pm index 5eb8d2b..87b3c88 100644 --- a/Gruta/Source/DBI.pm +++ b/Gruta/Source/DBI.pm @@ -307,12 +307,18 @@ sub search_stories { my $self = shift; my $topic_id = shift; my $query = shift; + my $future = shift; my @q = map { '%' . $_ . '%' } split(/\s+/, $query); - my $like = 'AND content LIKE ? ' x scalar(@q); + my $cond = 'AND content LIKE ? ' x scalar(@q); + + unless ($future) { + $cond .= 'AND date <= '; + push(@q, Gruta::Data::today()); + } my $sth = $self->_prepare( - 'SELECT id FROM stories WHERE topic_id = ? ' . $like . + 'SELECT id FROM stories WHERE topic_id = ? ' . $cond . 'ORDER BY date DESC'); $self->_execute($sth, $topic_id, @q); -- 2.11.4.GIT