[BACK]Return to lonwhatsnew.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.101 and 1.105.2.1

version 1.101, 2010/02/28 22:38:11 version 1.105.2.1, 2012/05/10 19:01:40
Line 88  sub handler { Line 88  sub handler {
   
     if ( ! $env{'request.course.fn'} || ! $checkallowed{'whatsnew'}) {      if ( ! $env{'request.course.fn'} || ! $checkallowed{'whatsnew'}) {
         # Not in a course, or no whn priv in course          # Not in a course, or no whn priv in course
         $env{'user.error.msg'}="/adm/whatsnew::whn:0:0:Cannot display what's new page";          $env{'user.error.msg'}="/adm/whatsnew:whn:0:0:Cannot display what's new page";
         return HTTP_NOT_ACCEPTABLE;          return HTTP_NOT_ACCEPTABLE;
     }      }
   
Line 999  sub check_thresholds { Line 999  sub check_thresholds {
             $av_attempts = $attempts/$users;              $av_attempts = $attempts/$users;
             $av_attempts = sprintf("%.2f",$av_attempts);              $av_attempts = sprintf("%.2f",$av_attempts);
         }          }
           &Apache::lonnet::statslog($symb,$part,$users,$av_attempts,$degdiff);
         if ((($degdiff ne '' && $degdiff >= $$threshold{'degdiff'}) || ($av_attempts ne '' && $av_attempts >= $$threshold{'av_attempts'})) && ($users >= $$threshold{'numstudents'})) {          if ((($degdiff ne '' && $degdiff >= $$threshold{'degdiff'}) || ($av_attempts ne '' && $av_attempts >= $$threshold{'av_attempts'})) && ($users >= $$threshold{'numstudents'})) {
             $stats{$part}{degdiff} = $degdiff;              $stats{$part}{degdiff} = $degdiff;
             $stats{$part}{attempts} = $av_attempts;              $stats{$part}{attempts} = $av_attempts;
Line 1434  sub checkversions { Line 1435  sub checkversions {
                                                      'lastrevisiondate');                                                       'lastrevisiondate');
                     $revdate =  &Apache::lonlocal::locallocaltime($revdate);                      $revdate =  &Apache::lonlocal::locallocaltime($revdate);
                     my $linkurl=&Apache::lonnet::clutter($key);                      my $linkurl=&Apache::lonnet::clutter($key);
                     my $usedversion=$navmap->usedVersion('version_'.$linkurl);                      my $usedversion=$navmap->usedVersion($linkurl);
                     my @resources = $navmap->getResourceByUrl($linkurl,1);                      my @resources = $navmap->getResourceByUrl($linkurl,1);
                     if (($usedversion) && ($usedversion ne 'mostrecent')) {                      if (($usedversion) && ($usedversion ne 'mostrecent')) {
                         $version = $usedversion;                               $version = $usedversion;     
Line 1477  sub display_handgrade { Line 1478  sub display_handgrade {
             my $linkurl=&Apache::lonnet::clutter($url);              my $linkurl=&Apache::lonnet::clutter($url);
             $linkurl .= '?symb='.&escape($res);              $linkurl .= '?symb='.&escape($res);
             if ($$ungraded{$res}{'enclink'}) {              if ($$ungraded{$res}{'enclink'}) {
                 $linkurl =                   $linkurl =
                     $$ungraded{$res}{'enclink'}.'?symb='.$$ungraded{$res}{'encsymb'};                      $$ungraded{$res}{'enclink'}.'?symb='.$$ungraded{$res}{'encsymb'};
             }               }
             $r->print('<tr'.$css_class.'><td><a href="'.$linkurl.'">'.$$ungraded{$res}{title}.'</a></td><td class="LC_right_item">'.$$ungraded{$res}{count}.'</td></tr>');              $r->print('<tr'.$css_class.'><td><a href="'.$linkurl.'">'.$$ungraded{$res}{title}.'</a></td><td class="LC_right_item">'.$$ungraded{$res}{count}.'</td></tr>');
         }          }
     } elsif ($itemserror) {      } elsif ($itemserror) {
Removed from v.1.101  
changed lines
  Added in v.1.105.2.1

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