Return to lonhomework.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.153, 2003/10/14 15:47:50 | 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; |