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."); |