version 1.360, 2016/03/15 14:25:33
|
version 1.361, 2016/05/13 22:48:09
|
Line 1440 sub zero_timer {
|
Line 1440 sub zero_timer {
|
my $now = time; |
my $now = time; |
my $first_access=&Apache::lonnet::get_first_access($interval[1],$symb); |
my $first_access=&Apache::lonnet::get_first_access($interval[1],$symb); |
if ($first_access > 0) { |
if ($first_access > 0) { |
my ($timelimit,$done,$proctor,$secret) = split(/_/,$interval[0]); |
my ($timelimit,$donesuffix) = split(/_/,$interval[0],2); |
if ($done eq 'done') { |
if ($donesuffix =~ /^done(?:|\:[^\:]+\:)(.*)$/) { |
|
my ($dummy,$proctor,$secret) = split(/_/,$1); |
if (($proctor) && ($secret ne '')) { |
if (($proctor) && ($secret ne '')) { |
my $key = $env{'form.LC_interval_done_proctorpass'}; |
my $key = $env{'form.LC_interval_done_proctorpass'}; |
$key =~ s/^\s+//; |
$key =~ s/^\s+//; |