version 1.67, 2017/12/22 02:01:01
|
version 1.68, 2017/12/30 00:16:36
|
Line 38 use Apache::loncommon();
|
Line 38 use Apache::loncommon();
|
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonextresedit(); |
use Apache::lonextresedit(); |
use Apache::lonexttool(); |
use Apache::lonexttool(); |
|
use Apache::lonhomework(); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
use HTML::Entities(); |
use HTML::Entities(); |
|
|
Line 82 sub wrapper {
|
Line 83 sub wrapper {
|
$args->{'only_body'} = $env{'form.only_body'}; |
$args->{'only_body'} = $env{'form.only_body'}; |
} |
} |
|
|
my $countdown; |
my ($countdown,$donemsg); |
if (($exttool) && (&Apache::lonnet::EXT('resource.0.gradable') =~ /^yes$/i)) { |
if (($exttool) && (&Apache::lonnet::EXT('resource.0.gradable') =~ /^yes$/i)) { |
$Apache::lonhomework::browse = &Apache::lonnet::allowed('bre',$url); |
$Apache::lonhomework::browse = &Apache::lonnet::allowed('bre',$url); |
if ($env{'form.markaccess'}) { |
if ($env{'form.markaccess'}) { |
my @interval=&Apache::lonnet::EXT("resource.0.interval"); |
my $symb=&Apache::lonnet::symbread($url); |
|
my @interval=&Apache::lonnet::EXT('resource.0.interval',$symb); |
my ($timelimit) = split(/_/,$interval[0]); |
my ($timelimit) = split(/_/,$interval[0]); |
&Apache::lonnet::set_first_access($interval[1],$timelimit); |
my $setres = &Apache::lonnet::set_first_access($interval[1],$timelimit); |
delete($env{'form.markaccess'}); |
if ($setres eq 'ok') { |
|
delete($env{'form.markaccess'}); |
|
} |
|
} elsif ($env{'form.LC_interval_done'} eq 'true') { |
|
my $symb=&Apache::lonnet::symbread($url); |
|
if ($symb) { |
|
(my $donebuttonresult,$donemsg) = &Apache::lonhomework::zero_timer($symb); |
|
undef($env{'form.LC_interval_done'}); |
|
undef($env{'form.LC_interval_done_proctorpass'}); |
|
} |
} |
} |
my ($status,$result,$resource_due) = |
my ($status,$result,$resource_due) = |
&Apache::lonexttool::gradabletool_access_check(); |
&Apache::lonexttool::gradabletool_access_check(); |
Line 118 sub wrapper {
|
Line 129 sub wrapper {
|
} |
} |
} |
} |
|
|
my $startpage = &Apache::loncommon::start_page('Menu',undef,$args).$countdown; |
my $startpage = &Apache::loncommon::start_page('Menu',undef,$args).$countdown.$donemsg; |
my $endpage = &Apache::loncommon::end_page(); |
my $endpage = &Apache::loncommon::end_page(); |
|
|
if (($env{'browser.mobile'}) || ($exttool eq 'window') || ($exttool eq 'tab')) { |
if (($env{'browser.mobile'}) || ($exttool eq 'window') || ($exttool eq 'tab')) { |