From 82a57802f238fe55283a733f46eba5a82b9153db Mon Sep 17 00:00:00 2001
From: Joey Schulze <joey@infodrom.org>
Date: Mon, 12 Nov 2012 20:26:41 +0000
Subject: [PATCH] Only display current customers

---
 src/InfoCon/stempel/stempel | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/InfoCon/stempel/stempel b/src/InfoCon/stempel/stempel
index 6d316ee..8754200 100755
--- a/src/InfoCon/stempel/stempel
+++ b/src/InfoCon/stempel/stempel
@@ -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)) {
-- 
2.20.1