loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.255, 2006/06/30 05:10:29	version 1.257, 2006/07/20 03:57:38
Line 480 sub check_access {	Line 480 sub check_access {
if (!$first_access) {	if (!$first_access) {
$status='NOT_YET_VIEWED';	$status='NOT_YET_VIEWED';
my $due_date = &due_date($id);	my $due_date = &due_date($id);
$datemsg=&seconds_to_human_length($due_date-time);	my $seconds_left = $due_date - time;
	if ($seconds_left > $interval \|\| $due_date eq '') {
	$seconds_left = $interval;
	}
	$datemsg=&seconds_to_human_length($seconds_left);
}	}
}	}
}	}
Line 510 sub due_date {	Line 514 sub due_date {
my $due_date= &Apache::lonnet::EXT("resource.$part_id.duedate",$symb,	my $due_date= &Apache::lonnet::EXT("resource.$part_id.duedate",$symb,
$udom,$uname);	$udom,$uname);
&Apache::lonxml::debug("looking for due_date $part_id $symb $due_date");	&Apache::lonxml::debug("looking for due_date $part_id $symb $due_date");
if (defined($interval)) {	if ($interval =~ /\d+/) {
my $first_access=&Apache::lonnet::get_first_access('map',$symb);	my $first_access=&Apache::lonnet::get_first_access('map',$symb);
	&Apache::lonxml::debug("looking for first_access $first_access");
if (defined($first_access)) {	if (defined($first_access)) {
$interval = $first_access+$interval;	$interval = $first_access+$interval;
$date = ($interval < $due_date)? $interval : $due_date;	$date = ($interval < $due_date)? $interval : $due_date;