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