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); |
} | } |