diff options
Diffstat (limited to 'data/tpl/defs.pl')
-rw-r--r-- | data/tpl/defs.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/data/tpl/defs.pl b/data/tpl/defs.pl index 5a09677d..d3e84b8a 100644 --- a/data/tpl/defs.pl +++ b/data/tpl/defs.pl @@ -455,7 +455,7 @@ sub cform { $ret .= sprintf qq| <select name="%s" id="%s">\n%s</select>\n|, $_->{short}, $_->{short}, eval { my $r=''; - for my $s (0, 1990..((localtime())[5]+1905), 9999) { + for my $s (0, 1980..((localtime())[5]+1905), 9999) { $r .= sprintf qq| <option value="%s"%s>%s</option>\n|, $s, $frm->{$_->{short}} && ($frm->{$_->{short}}[0]||0) == $s ? ' selected="selected"' : '', !$s ? '-year-' : $s < 9999 ? $s : 'TBA'; |