--- db/prgsrc/db.cgi 2003/04/20 11:44:46 1.105 +++ db/prgsrc/db.cgi 2003/04/20 11:45:48 1.106 @@ -105,7 +105,7 @@ sub NewEnough { my ($a) = @_; my ($year, $month, $day) = split('-', $a); $month=1 if ($month<=0); - $day=1 if ($day<0); + $day=1 if ($day<=0); return (time - timelocal(0, 0, 0, $day, $month -1, $year) < $TMSECS); }