loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.244, 2006/05/12 01:18:50	version 1.246, 2006/05/12 03:46:54
Line 238 sub check_slot_access {	Line 238 sub check_slot_access {
my ($status,$datemsg)=&check_access($id);	my ($status,$datemsg)=&check_access($id);

my $useslots = &Apache::lonnet::EXT("resource.$id.useslots");	my $useslots = &Apache::lonnet::EXT("resource.$id.useslots");
if ($useslots ne 'resource' && $useslots ne 'sequence') {	if ($useslots ne 'resource' && $useslots ne 'map') {
return ($status,$datemsg);	return ($status,$datemsg);
}	}

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)=@_;