loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.205, 2005/04/29 21:22:33	version 1.206, 2005/05/03 00:05:41
Line 245 sub check_task_access {	Line 245 sub check_task_access {
# return ($status,$datemsg);	# return ($status,$datemsg);
# }	# }
my $slotstatus='NOT_IN_A_SLOT';	my $slotstatus='NOT_IN_A_SLOT';
my $returned_slot;	my ($returned_slot,$slot_name);
foreach my $slot (@slots) {	foreach my $slot (@slots) {
&Apache::lonxml::debug("getting $slot");	&Apache::lonxml::debug("getting $slot");
my %slot=&Apache::lonnet::get_slot($slot);	my %slot=&Apache::lonnet::get_slot($slot);
Line 256 sub check_task_access {	Line 256 sub check_task_access {
&Apache::lonxml::debug("$slot is good");	&Apache::lonxml::debug("$slot is good");
$slotstatus='NEEDS_CHECKIN';	$slotstatus='NEEDS_CHECKIN';
$returned_slot=\%slot;	$returned_slot=\%slot;
	$slot_name=$slot;
last;	last;
}	}
}	}
Line 264 sub check_task_access {	Line 265 sub check_task_access {
&Apache::lonxml::debug("protoctor checked in");	&Apache::lonxml::debug("protoctor checked in");
$slotstatus='CAN_ANSWER';	$slotstatus='CAN_ANSWER';
}	}
return ($slotstatus,$datemsg,$returned_slot);	return ($slotstatus,$datemsg,$slot_name,$returned_slot);
}	}

# JB, 9/24/2002: Any changes in this function may require a change	# JB, 9/24/2002: Any changes in this function may require a change