version 1.270, 2007/08/18 00:10:50
|
version 1.272, 2007/08/24 22:58:18
|
Line 188 sub proctor_checked_in {
|
Line 188 sub proctor_checked_in {
|
return 0; |
return 0; |
} |
} |
|
|
$Apache::lonxml::browse=''; |
|
sub check_ip_acc { |
sub check_ip_acc { |
my ($acc)=@_; |
my ($acc)=@_; |
&Apache::lonxml::debug("acc is $acc"); |
&Apache::lonxml::debug("acc is $acc"); |
Line 196 sub check_ip_acc {
|
Line 195 sub check_ip_acc {
|
return 1; |
return 1; |
} |
} |
my $allowed=0; |
my $allowed=0; |
my $ip=$ENV{'REMOTE_ADDR'}; |
my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'}; |
|
|
my $name; |
my $name; |
foreach my $pattern (split(',',$acc)) { |
foreach my $pattern (split(',',$acc)) { |
$pattern =~ s/^\s*//; |
$pattern =~ s/^\s*//; |