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

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

version 1.103, 2011/03/31 17:54:10 version 1.105.2.1, 2012/05/10 19:01:40
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 1473  sub display_handgrade { Line 1474  sub display_handgrade {
         foreach my $res (@{$tograde}) {          foreach my $res (@{$tograde}) {
             $rowNum ++;              $rowNum ++;
             my $css_class = $rowNum%2?' class="LC_odd_row"':'';              my $css_class = $rowNum%2?' class="LC_odd_row"':'';
             my $linkurl='/adm/grades';              my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);
               my $linkurl=&Apache::lonnet::clutter($url);
               $linkurl .= '?symb='.&escape($res);
             if ($$ungraded{$res}{'enclink'}) {              if ($$ungraded{$res}{'enclink'}) {
                 $linkurl.='?symb='.$$ungraded{$res}{'encsymb'};                  $linkurl =
             } else {                      $$ungraded{$res}{'enclink'}.'?symb='.$$ungraded{$res}{'encsymb'};
                 $linkurl.='?symb='.&escape($res);  
             }              }
             $linkurl.='&command=ungraded';  
             $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.103  
changed lines
  Added in v.1.105.2.1

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