Diff for /rat/lonpage.pm between versions 1.114 and 1.115

version 1.114, 2016/05/30 03:02:37 version 1.115, 2016/05/30 04:50:39
Line 498  ENDEXT Line 498  ENDEXT
                                               my @interval=&Apache::lonnet::EXT("resource.0.interval",$symb);                                                my @interval=&Apache::lonnet::EXT("resource.0.interval",$symb);
                                               if (@interval > 1) {                                                if (@interval > 1) {
                                                   my $first_access;                                                    my $first_access;
                                                   if ($first_access > 0) {                                                    if ($interval[1] eq 'map') {
                                                       if ($interval[1] eq 'map') {                                                        my $ignorecache;
                                                           my $ignorecache;                                                        if ($env{'form.'.$prefix.'markaccess'} eq 'yes') {
                                                           if ($env{'form.'.$prefix.'markaccess'} eq 'yes') {                                                            $ignorecache = 1;
                                                               $ignorecache = 1;  
                                                           }  
                                                           $first_access=&Apache::lonnet::get_first_access($interval[1],undef,$pagesymb,$ignorecache);  
                                                           if (($first_access) && (!$pagefirstaccess)) {  
                                                               $pagefirstaccess = $first_access;  
                                                           }  
                                                       } else {  
                                                           $first_access=&Apache::lonnet::get_first_access($interval[1],$symb);  
                                                       }                                                        }
                                                       if ($first_access > 0) {                                                        $first_access=&Apache::lonnet::get_first_access($interval[1],undef,$pagesymb,$ignorecache);
                                                           my ($timelimit) = ($interval[0] =~ /^(\d+)/);                                                        if (($first_access) && (!$pagefirstaccess)) {
                                                           if ($timelimit) {                                                            $pagefirstaccess = $first_access;
                                                               my $timeremains = $timelimit + $first_access - $now;  
                                                               if ($timeremains > 0) {  
                                                                   $timerhastime = $timeremains;  
                                                               }  
                                                           }  
                                                       }                                                        }
                                                     } else {
                                                         $first_access=&Apache::lonnet::get_first_access($interval[1],$symb);
                                                     }
                                                     if ($first_access > 0) {
                                                       my ($timelimit) = ($interval[0] =~ /^(\d+)/);                                                        my ($timelimit) = ($interval[0] =~ /^(\d+)/);
                                                       my $timeremains = $first_access+$timelimit - $now;                                                        if ($timelimit) {
                                                       if ($timeremains > 0) {                                                            my $timeremains = $timelimit + $first_access - $now;
                                                           $timerhastime = $timeremains;                                                            if ($timeremains > 0) {
                                                                 $timerhastime = $timeremains;
                                                             }
                                                       }                                                        }
                                                   }                                                    }
                                               }                                                }

Removed from v.1.114  
changed lines
  Added in v.1.115


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