Web   ·   Wiki   ·   Activities   ·   Blog   ·   Lists   ·   Chat   ·   Meeting   ·   Bugs   ·   Git   ·   Translate   ·   Archive   ·   People   ·   Donate
summaryrefslogtreecommitdiffstats
path: root/cgi/search.pl
diff options
context:
space:
mode:
Diffstat (limited to 'cgi/search.pl')
-rwxr-xr-xcgi/search.pl7
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%";