version 1.349.2.2, 2015/04/14 21:35:56
|
version 1.350, 2015/04/15 04:11:20
|
Line 1331 sub update_construct_style {
|
Line 1331 sub update_construct_style {
|
} |
} |
} |
} |
|
|
# Sets timer to zero for the entire folder containing the current resource for the |
|
# current user. |
|
sub zero_timer { |
|
my $symb = shift; |
|
my $first_access = &Apache::lonnet::get_first_access("map",$symb); |
|
my $done_time = time() - $first_access; |
|
&Apache::lonparmset::storeparm_by_symb($symb,"0_interval","2",$done_time, |
|
"date_interval",$env{'user.name'},$env{'user.domain'},,'',); |
|
} |
|
|
|
|
|
sub handler { |
sub handler { |
#my $t0 = [&gettimeofday()]; |
#my $t0 = [&gettimeofday()]; |
my $request=$_[0]; |
my $request=$_[0]; |
|
|
my ($symb) = &Apache::lonnet::whichuser(); |
|
|
|
# Set the event timer to zero if the "done button" was clicked. The button is |
|
# part of the doneButton form created in lonmenu.pm |
|
if ($env{"form.done"} eq "true") { |
|
&zero_timer($symb); |
|
$env{"form.done"} = ""; |
|
} |
|
|
|
$Apache::lonxml::request=$request; |
$Apache::lonxml::request=$request; |
$Apache::lonxml::debug=$env{'user.debug'}; |
$Apache::lonxml::debug=$env{'user.debug'}; |
$env{'request.uri'}=$request->uri; |
$env{'request.uri'}=$request->uri; |
Line 1363 sub handler {
|
Line 1343 sub handler {
|
my $file=&Apache::lonnet::filelocation("",$request->uri); |
my $file=&Apache::lonnet::filelocation("",$request->uri); |
|
|
#check if we know where we are |
#check if we know where we are |
if ($env{'request.course.fn'} && !&Apache::lonnet::symbread()) { |
if ($env{'request.course.fn'} && !&Apache::lonnet::symbread('','',1,1)) { |
# if we are browsing we might not be able to know where we are |
# if we are browsing we might not be able to know where we are |
if ($Apache::lonhomework::browse ne 'F' && |
if ($Apache::lonhomework::browse ne 'F' && |
$env{'request.state'} ne "construct") { |
$env{'request.state'} ne "construct") { |
Line 1379 sub handler {
|
Line 1359 sub handler {
|
} |
} |
&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:$Apache::lonhomework::modifygrades:$Apache::lonhomework::queuegrade"); |
&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:$Apache::lonhomework::modifygrades:$Apache::lonhomework::queuegrade"); |
&Apache::lonxml::debug("Problem Mode ".$env{'form.problemmode'}); |
&Apache::lonxml::debug("Problem Mode ".$env{'form.problemmode'}); |
|
my ($symb) = &Apache::lonnet::whichuser(); |
&Apache::lonxml::debug('symb is '.$symb); |
&Apache::lonxml::debug('symb is '.$symb); |
if ($env{'request.state'} eq "construct") { |
if ($env{'request.state'} eq "construct") { |
if ( -e $file ) { |
if ( -e $file ) { |