loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

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*//;