--- db/prgsrc/db.cgi	2003/04/20 11:35:05	1.103
+++ db/prgsrc/db.cgi	2003/04/20 11:42:59	1.104
@@ -104,7 +104,8 @@ my @months=('000','Jan',"Feb","Mar","Apr
 sub NewEnough {
 	my ($a) = @_;
 	my ($year, $month, $day) = split('-', $a);
-
+	$month=0 if ($month<0);
+	$day=0 if ($month<0);
 	return (time - timelocal(0, 0, 0, $day, $month -1, $year) < $TMSECS);
 }