diff options
Diffstat (limited to 'cgi/search.pl')
-rwxr-xr-x | cgi/search.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/cgi/search.pl b/cgi/search.pl index be75e70..f59c5fe 100755 --- a/cgi/search.pl +++ b/cgi/search.pl @@ -70,8 +70,9 @@ my $nick = decode('utf8', $q->param('nick') || ''); #my $qs = decode('utf8', $q->param('q') || ''); my $qs = $q->param('q') || ''; $qs = my_decode($qs); +my $meetings = $q->param('meetings'); - +$t->param(MEETINGS => $meetings); $t->param(NICK => encode('utf8', $nick)); $t->param(Q => $qs); @@ -93,7 +94,9 @@ if (length($nick) or length($qs)){ } else { @sql_conds = ('NOT spam'); } - + if ($meetings) { + push @sql_conds, '(meeting IS NOT NULL)'; + } if (length $nick){ push @sql_conds, '(nick = ? OR nick LIKE ?)'; push @args, $nick, "%$nick%"; |