Allow to query task details

[infodrom.org/service.infodrom.org] / src / InfoCon / stempel / stempel

diff --git a/src/InfoCon/stempel/stempel b/src/InfoCon/stempel/stempel
index b29fdc3..bbfb922 100755 (executable)
--- a/src/InfoCon/stempel/stempel
+++ b/src/InfoCon/stempel/stempel
@@ -266,6 +266,8 @@ sub list
     } elsif ($month =~ /^(\d\d?)$/) {
        my $pivot = $d_year+1900 . '-' . $1 . '-01';
        $query .= "AND start >= '$pivot' AND start <= '$pivot'::date + interval '1 month' ";
+    } elsif (length $month && $month !~ /^all$/) {
+       $query .= "AND task LIKE '%${month}%' ";
     } elsif ($month !~ /^all$/) {
        my $pivot = sprintf('%04d-%02d-01', $d_year+1900, $d_mon+1);
        $query .= "AND start >= '$pivot' AND start <= '$pivot'::date + interval '1 month' ";