db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.103, 2003/04/20 11:35:05	version 1.106, 2003/04/20 11:45:48
Line 104 my @months=('000','Jan',"Feb","Mar","Apr	Line 104 my @months=('000','Jan',"Feb","Mar","Apr
sub NewEnough {	sub NewEnough {
my ($a) = @_;	my ($a) = @_;
my ($year, $month, $day) = split('-', $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);	return (time - timelocal(0, 0, 0, $day, $month -1, $year) < $TMSECS);
}	}