version 1.152, 2003/10/13 21:09:47
|
version 1.153, 2003/10/14 15:47:50
|
Line 216 sub check_access {
|
Line 216 sub check_access {
|
|
|
my $allowed=&check_ip_acc(&Apache::lonnet::EXT("resource.$id.acc")); |
my $allowed=&check_ip_acc(&Apache::lonnet::EXT("resource.$id.acc")); |
if (!$allowed) { |
if (!$allowed) { |
&Apache::lonnet::logthis("Early exit"); |
|
$status='INVALID_ACCESS'; |
$status='INVALID_ACCESS'; |
$date=&mt("may be open from a different computer."); |
$date=&mt("may be open from a different computer."); |
return($status,$date); |
return($status,$date); |