db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.105, 2003/04/20 11:44:46	version 1.106, 2003/04/20 11:45:48
Line 105 sub NewEnough {	Line 105 sub NewEnough {
my ($a) = @_;	my ($a) = @_;
my ($year, $month, $day) = split('-', $a);	my ($year, $month, $day) = split('-', $a);
$month=1 if ($month<=0);	$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);	return (time - timelocal(0, 0, 0, $day, $month -1, $year) < $TMSECS);
}	}