loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.223, 2005/11/15 18:23:17	version 1.225, 2005/11/15 21:39:33
Line 236 sub check_task_access {	Line 236 sub check_task_access {
my ($status,$datemsg)=&check_access;	my ($status,$datemsg)=&check_access;
if ($status eq 'SHOW_ANSWER' \|\|	if ($status eq 'SHOW_ANSWER' \|\|
$status eq 'CLOSED' \|\|	$status eq 'CLOSED' \|\|
$status eq 'CANNOT_ANSWER' \|\|
$status eq 'INVALID_ACCESS' \|\|	$status eq 'INVALID_ACCESS' \|\|
$status eq 'UNAVAILABLE') {	$status eq 'UNAVAILABLE') {
return ($status,$datemsg);	return ($status,$datemsg);
Line 286 sub check_task_access {	Line 285 sub check_task_access {
return ('WAITING_FOR_GRADE');	return ('WAITING_FOR_GRADE');
}	}
}	}
	if ( $status eq 'CANNOT_ANSWER' &&
	($slotstatus ne 'NEEDS_CHECKIN' && $slotstatus ne 'NOT_IN_A_SLOT')) {
	return ($status,$datemsg);
	}

return ($slotstatus,$datemsg,$slot_name,$returned_slot);	return ($slotstatus,$datemsg,$slot_name,$returned_slot);
}	}

Line 939 sub handler {	Line 943 sub handler {
if ($Apache::lonhomework::browse ne 'F' &&	if ($Apache::lonhomework::browse ne 'F' &&
$env{'request.state'} ne "construct") {	$env{'request.state'} ne "construct") {
#should know where we are, so ask	#should know where we are, so ask
if ( &Apache::lonnet::mod_perl_version() == 2 ) {
&Apache::lonnet::cleanenv();
}
&Apache::lonnet::logthis(&Apache::lonnet::mod_perl_version());
$request->internal_redirect('/adm/ambiguous'); return OK;	$request->internal_redirect('/adm/ambiguous'); return OK;
}	}
}	}