Only display current customers
authorJoey Schulze <joey@infodrom.org>
Mon, 12 Nov 2012 20:26:41 +0000 (20:26 +0000)
committerJoey Schulze <joey@infodrom.org>
Mon, 12 Nov 2012 20:26:41 +0000 (20:26 +0000)
src/InfoCon/stempel/stempel

index 6d316ee..8754200 100755 (executable)
@@ -57,7 +57,7 @@ sub customerlist
 {
     my @res;
 
-    my $query = q{SELECT DISTINCT customer FROM stempel ORDER BY customer};
+    my $query = q{SELECT DISTINCT customer FROM stempel WHERE start > now() - interval '1 year' ORDER BY customer};
     my $sth = $dbh->prepare ($query);
     if ($sth && $sth->execute > 0) {
        while ((my $row = $sth->fetchrow_hashref)) {