loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.153, 2003/10/14 15:47:50	version 1.155, 2003/10/15 17:41:10
Line 149 $Apache::lonxml::browse='';	Line 149 $Apache::lonxml::browse='';

sub check_ip_acc {	sub check_ip_acc {
my ($acc)=@_;	my ($acc)=@_;
if (!defined($acc)) { return 1; }	if (!defined($acc) \|\| $acc =~ /^\s*$/) { return 1; }
my $allowed=0;	my $allowed=0;
my $ip=$ENV{'REMOTE_ADDR'};	my $ip=$ENV{'REMOTE_ADDR'};
my $name;	my $name;
Line 217 sub check_access {	Line 217 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) {
$status='INVALID_ACCESS';	$status='INVALID_ACCESS';
$date=&mt("may be open from a different computer.");	$date=&mt("can not be accessed from your location.");
return($status,$date);	return($status,$date);
}	}