Properly filter year

diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon
index afdf50c..a8bfaca 100755 (executable)
--- a/src/InfoCon/buch/infocon
+++ b/src/InfoCon/buch/infocon
@@ -1,7 +1,7 @@
 #! /usr/bin/perl
 
 #  infocon - Administration tool for InfoCon
-#  Copyright (c) 1998-2003,2005-8  Martin Schulze <joey@infodrom.org>
+#  Copyright (c) 1998-2003,2005-8,10  Martin Schulze <joey@infodrom.org>
 #
 #  This program is free software; you can redistribute it and/or modify
 #  it under the terms of the GNU General Public License as published by
@@ -132,9 +132,9 @@ sub sales_list
 
     if ($opt_year) {
        if ($where) {
-           $where .= " AND date ~* '$opt_year'";
+           $where .= " AND date LIKE '$opt_year%'";
        } else {
-           $where .= "date ~* '$opt_year'";
+           $where .= "date LIKE '$opt_year%'";
        }
     }