loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.287, 2007/12/24 06:35:18	version 1.288, 2008/01/14 14:32:14
Line 292 sub check_slot_access {	Line 292 sub check_slot_access {
}	}
}	}

my @slots=	my $availablestudent = &Apache::lonnet::EXT("resource.0.availablestudent");
(split(':',&Apache::lonnet::EXT("resource.0.availablestudent")),	my $available = &Apache::lonnet::EXT("resource.0.available");
split(':',&Apache::lonnet::EXT("resource.0.available")));	my @slots= (split(':',$availablestudent),split(':',$available));

# if (!@slots) {	# if (!@slots) {
# return ($status,$datemsg);	# return ($status,$datemsg);
Line 421 sub check_access {	Line 421 sub check_access {
&Apache::lonxml::debug("symb:".$symb);	&Apache::lonxml::debug("symb:".$symb);
#if ($env{'request.state'} ne "construct" && $symb ne '') {	#if ($env{'request.state'} ne "construct" && $symb ne '') {
if ($env{'request.state'} ne "construct") {	if ($env{'request.state'} ne "construct") {
my $allowed=&check_ip_acc(&Apache::lonnet::EXT("resource.$id.acc"));	my $idacc = &Apache::lonnet::EXT("resource.$id.acc");
	my $allowed=&check_ip_acc($idacc);
if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {	if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {
$status='INVALID_ACCESS';	$status='INVALID_ACCESS';
$date=&mt("can not be accessed from your location.");	$date=&mt("can not be accessed from your location.");