--- loncom/interface/lonexttool.pm 2017/12/22 02:00:46 1.12 +++ loncom/interface/lonexttool.pm 2017/12/30 00:16:29 1.13 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Launch External Tool Provider (LTI) # -# $Id: lonexttool.pm,v 1.12 2017/12/22 02:00:46 raeburn Exp $ +# $Id: lonexttool.pm,v 1.13 2017/12/30 00:16:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -127,13 +127,20 @@ sub handler { return OK; } - my ($status,$open,$close,$msg); + my ($status,$open,$close,$msg,$donebuttonresult,$donemsg); if ($toolhash{'gradable'}) { $Apache::lonhomework::browse = &Apache::lonnet::allowed('bre',$r->uri); + my ($symb) = &Apache::lonnet::whichuser(); if ($env{'form.markaccess'}) { - my @interval=&Apache::lonnet::EXT("resource.0.interval"); + my @interval=&Apache::lonnet::EXT('resource.0.interval',$symb); my ($timelimit) = split(/_/,$interval[0]); &Apache::lonnet::set_first_access($interval[1],$timelimit); + } elsif ($symb && $env{'form.LC_interval_done'} eq 'true') { + # Set the event timer to zero if the "done button" was clicked. The button is + # part of the doneButton form created in lonmenu.pm + ($donebuttonresult,$donemsg) = &Apache::lonhomework::zero_timer($symb); + undef($env{'form.LC_interval_done'}); + undef($env{'form.LC_interval_done_proctorpass'}); } ($status,$msg) = &gradabletool_access_check(); undef($Apache::lonhomework::browse);