db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.104, 2003/04/20 11:42:59	version 1.105, 2003/04/20 11:44:46
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=0 if ($month<0);	$month=1 if ($month<=0);
$day=0 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);
}	}