version 1.245, 2006/05/12 01:20:44
|
version 1.246, 2006/05/12 03:46:54
|
Line 479 sub check_access {
|
Line 479 sub check_access {
|
return ($status,$datemsg); |
return ($status,$datemsg); |
} |
} |
|
|
|
sub due_date { |
|
my ($part_id,$symb)=@_; |
|
my $date; |
|
my $interval= &Apache::lonnet::EXT("resource.$part_id.interval",$symb); |
|
if ($interval) { |
|
my $first_access=&Apache::lonnet::get_first_access('map',$symb); |
|
if ($first_access) { $date = $first_access+$interval; } |
|
} |
|
if (!defined($date)) { |
|
$date = &Apache::lonnet::EXT("resource.$part_id.duedate",$symb); |
|
} |
|
return $date |
|
} |
|
|
sub seconds_to_human_length { |
sub seconds_to_human_length { |
my ($length)=@_; |
my ($length)=@_; |
|
|