loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.152, 2003/10/13 21:09:47	version 1.154, 2003/10/14 18:44:21
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 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);