Diff for /loncom/homework/lonhomework.pm between versions 1.344.2.8.2.2 and 1.344.2.9

version 1.344.2.8.2.2, 2018/01/25 20:15:50 version 1.344.2.9, 2017/09/13 19:07:44
Line 1460  sub update_construct_style { Line 1460  sub update_construct_style {
     }      }
 }  }
   
 #  
 # Sets interval for current user so time left will be zero, either for the entire folder  
 # containing the current resource, or just the resource, depending on value of first item  
 # in interval array retrieved from EXT("resource.0.interval");  
 #  
 sub zero_timer {  
     my ($symb) = @_;  
     my ($hastimeleft,$first_access,$now);  
     my @interval=&Apache::lonnet::EXT("resource.0.interval");  
     if (@interval > 1) {  
         if ($interval[1] eq 'course') {  
             return;  
         } else {  
             my $now = time;  
             my $first_access=&Apache::lonnet::get_first_access($interval[1],$symb);  
             if ($first_access > 0) {  
                 if ($first_access+$interval[0] > $now) {  
                     my $done_time = $now - $first_access;  
                     my $snum = 1;  
                     if ($interval[1] eq 'map') {  
                         $snum = 2;  
                     }  
                     my $result =  
                         &Apache::lonparmset::storeparm_by_symb_inner($symb,'0_interval',  
                                                                      $snum,$done_time,  
                                                                      'date_interval',  
                                                                      $env{'user.name'},  
                                                                      $env{'user.domain'});  
                     return $result;  
                 }  
             }  
         }  
     }  
     return;  
 }  
   
 sub handler {  sub handler {
     #my $t0 = [&gettimeofday()];      #my $t0 = [&gettimeofday()];
Line 1551  sub handler { Line 1516  sub handler {
     &newproblem($request);      &newproblem($request);
  }   }
     } else {      } else {
         # Set the event timer to zero if the "done button" was clicked.  The button is  
         # part of the LCdoneButton form created in lonmenu.pm  
         if ($symb && $env{'form.LC_interval_done'} eq 'true') {  
             &zero_timer($symb);  
             undef($env{'form.LC_interval_done'});  
         }  
  # just render the page normally outside of construction space   # just render the page normally outside of construction space
  &Apache::lonxml::debug("not construct");   &Apache::lonxml::debug("not construct");
  &renderpage($request,$file);   &renderpage($request,$file);

Removed from v.1.344.2.8.2.2  
changed lines
  Added in v.1.344.2.9


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>