loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.35, 2005/11/21 21:20:06	version 1.36, 2005/11/21 22:16:24
Line 1129 sub handler {	Line 1129 sub handler {
} else {	} else {
my $symb=&Apache::lonnet::unescape($env{'form.symb'});	my $symb=&Apache::lonnet::unescape($env{'form.symb'});
my (undef,undef,$res)=&Apache::lonnet::decode_symb($symb);	my (undef,undef,$res)=&Apache::lonnet::decode_symb($symb);
if ($res !~ /\.task$/) {	my $useslots = &Apache::lonnet::EXT("resource.0.useslots",$symb);
	if ($useslots ne 'resource') {
&fail($r,'not_valid');	&fail($r,'not_valid');
return OK;	return OK;
}	}
$env{'request.symb'}=$symb;	$env{'request.symb'}=$symb;
my ($status) = &Apache::lonhomework::check_task_access('0');	my $type = ($res =~ /\.task$/) ? 'Task'
	: 'problem';
	my ($status) = &Apache::lonhomework::check_slot_access('0',$type);
if ($status eq 'CAN_ANSWER' \|\|	if ($status eq 'CAN_ANSWER' \|\|
$status eq 'NEEDS_CHECKIN' \|\|	$status eq 'NEEDS_CHECKIN' \|\|
$status eq 'WAITING_FOR_GRADE') {	$status eq 'WAITING_FOR_GRADE') {