#! /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
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%'";
}
}