version 1.266, 2016/05/30 02:45:32
|
version 1.267, 2016/08/31 19:08:18
|
Line 97 sub proctor_check_auth {
|
Line 97 sub proctor_check_auth {
|
sub check_in { |
sub check_in { |
my ($type,$user,$domain,$slot_name,$needsiptied) = @_; |
my ($type,$user,$domain,$slot_name,$needsiptied) = @_; |
my $useslots = &Apache::lonnet::EXT("resource.0.useslots"); |
my $useslots = &Apache::lonnet::EXT("resource.0.useslots"); |
my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'}; |
my $ip=$ENV{'REMOTE_ADDR'} || $env{'request.host'}; |
if ( $useslots eq 'map_map') { |
if ( $useslots eq 'map_map') { |
my $result = &check_in_sequence($user,$domain,$slot_name,$ip,$needsiptied); |
my $result = &check_in_sequence($user,$domain,$slot_name,$ip,$needsiptied); |
if ($result =~ /^error: /) { |
if ($result =~ /^error: /) { |