loncom/interface/lonexttool.pm - diff

Return to lonexttool.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.12, 2017/12/22 02:00:46	version 1.13, 2017/12/30 00:16:29
Line 127 sub handler {	Line 127 sub handler {
return OK;	return OK;
}	}

my ($status,$open,$close,$msg);	my ($status,$open,$close,$msg,$donebuttonresult,$donemsg);
if ($toolhash{'gradable'}) {	if ($toolhash{'gradable'}) {
$Apache::lonhomework::browse = &Apache::lonnet::allowed('bre',$r->uri);	$Apache::lonhomework::browse = &Apache::lonnet::allowed('bre',$r->uri);
	my ($symb) = &Apache::lonnet::whichuser();
if ($env{'form.markaccess'}) {	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]);	my ($timelimit) = split(/_/,$interval[0]);
&Apache::lonnet::set_first_access($interval[1],$timelimit);	&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();	($status,$msg) = &gradabletool_access_check();
undef($Apache::lonhomework::browse);	undef($Apache::lonhomework::browse);