version 1.373, 2018/09/18 14:30:19
|
version 1.374, 2018/09/20 14:16:51
|
Line 242 sub check_slot_access {
|
Line 242 sub check_slot_access {
|
$consumed_uniq = $slot{'uniqueperiod'}; |
$consumed_uniq = $slot{'uniqueperiod'}; |
if ($slot{'iptied'}) { |
if ($slot{'iptied'}) { |
$ipused = $Apache::lonhomework::history{"$checkin.ip"}; |
$ipused = $Apache::lonhomework::history{"$checkin.ip"}; |
unless (($ip ne '') && ($ipused eq $ip)) { |
unless (($ip ne '') && |
|
(($ipused eq $ip) || ($ENV{'REMOTE_ADDR'} eq '127.0.0.1'))) { |
$blockip = $slot{'iptied'}; |
$blockip = $slot{'iptied'}; |
$slot_name = $checkinslot; |
$slot_name = $checkinslot; |
$returned_slot = \%slot; |
$returned_slot = \%slot; |
Line 276 sub check_slot_access {
|
Line 277 sub check_slot_access {
|
return ('SHOW_ANSWER'); |
return ('SHOW_ANSWER'); |
} |
} |
} |
} |
|
} elsif (($type eq 'problem') && |
|
($Apache::lonhomework::browse eq 'F') && |
|
($ENV{'REMOTE_ADDR'} eq '127.0.0.1') && |
|
($env{'form.grade_courseid'} eq $env{'request.course.id'}) && |
|
(&Apache::lonnet::allowed('mgr',$env{'request.course.id'}))) { |
|
return ($status,$datemsg); |
} |
} |
|
|
my $availablestudent = &Apache::lonnet::EXT("resource.0.availablestudent",$symb); |
my $availablestudent = &Apache::lonnet::EXT("resource.0.availablestudent",$symb); |
Line 369 sub check_slot_access {
|
Line 376 sub check_slot_access {
|
$earlyout = 1; |
$earlyout = 1; |
} |
} |
} |
} |
if (($currtries == $maxtries) || ($is_correct)) { |
if ($currtries == $maxtries) { |
$earlyout = 1; |
$earlyout = 1; |
} else { |
} else { |
$numgraded ++; |
$numgraded ++; |