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

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.126 and 1.129

version 1.126, 2020/03/30 11:04:13 version 1.129, 2020/12/13 02:00:49
Line 1 Line 1
   # The LearningOnline Network
   # What's New in a course
 #  #
 # $Id$  # $Id$
 #  #
Line 653  sub display_actions_box { Line 655  sub display_actions_box {
   
     foreach my $item (@actionorder) {      foreach my $item (@actionorder) {
         unless ($item eq 'coursenormalmail' || $item eq 'coursecritmail' ||          unless ($item eq 'coursenormalmail' || $item eq 'coursecritmail' ||
                 $item eq 'newroles' || $item eq 'oldroles') {                  $item eq 'newroles' || $item eq 'oldroles' || 
                   $item eq 'crslogin' || $item eq 'sessions') {
             if ($show{$item}) {              if ($show{$item}) {
                 $needitems = 1;                  $needitems = 1;
                 last;                  last;
Line 1120  sub check_discussions { Line 1123  sub check_discussions {
 sub check_handgraded {  sub check_handgraded {
     my ($resource,$symb,$title,$cdom,$cnum,$ungraded,$tograde) = @_;      my ($resource,$symb,$title,$cdom,$cnum,$ungraded,$tograde) = @_;
     if ($resource->is_problem()) {      if ($resource->is_problem()) {
         my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);          my ($handgradeable,$is_task);
         my $partlist=$resource->parts();          my $partlist=$resource->parts();
         my $handgradeable;          if ($resource->is_task()) {
         foreach my $part (@$partlist) {              $is_task = 1;
             if ($resource->handgrade($part) eq 'yes') {              foreach my $part (@$partlist) {
                 $handgradeable=1; last;                  if ($resource->handgrade($part) eq 'yes') {
                       $handgradeable=1;
                       last;
                   }
               }
           } else {
               foreach my $part (@$partlist) {
                   my @types = $resource->responseType($part);
                   if (grep(/^essay$/,@types)) {
                       $handgradeable=1;
                       last;
                   } elsif (grep(/^custom$/,@types)) {
                       if ($resource->handgrade($part) eq 'yes') {
                           $handgradeable=1;
                           last;
                       }
                   }
             }              }
         }          }
         if ($handgradeable) {          if ($handgradeable) {
Line 1134  sub check_handgraded { Line 1153  sub check_handgraded {
             if (@ungraded > 0) {              if (@ungraded > 0) {
                 $$ungraded{$symb}{count} = scalar(@ungraded);                  $$ungraded{$symb}{count} = scalar(@ungraded);
                 $$ungraded{$symb}{title} = $title;                  $$ungraded{$symb}{title} = $title;
                   $$ungraded{$symb}{is_task} = $is_task;
                 if ($resource->encrypted()) {                  if ($resource->encrypted()) {
                     $$ungraded{$symb}{'enclink'} = $resource->link();                      $$ungraded{$symb}{'enclink'} = $resource->link();
                     $$ungraded{$symb}{'encsymb'} = $resource->shown_symb();                      $$ungraded{$symb}{'encsymb'} = $resource->shown_symb();
Line 1799  sub display_handgrade { Line 1819  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 $linkurl;
             if ($$ungraded{$res}{'enclink'}) {              if ($$ungraded{$res}{'is_task'}) {
                 $linkurl.='?symb='.$$ungraded{$res}{'encsymb'};                  my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);
                   $linkurl=&Apache::lonnet::clutter($url);
                   $linkurl .= '?symb='.&escape($res);
                   if ($$ungraded{$res}{'enclink'}) {
                       $linkurl =
                           $$ungraded{$res}{'enclink'}.'?symb='.$$ungraded{$res}{'encsymb'};
                   }
             } else {              } else {
                 $linkurl.='?symb='.&escape($res);                  $linkurl='/adm/grades';
                   if ($$ungraded{$res}{'enclink'}) {
                       $linkurl.='?symb='.$$ungraded{$res}{'encsymb'};
                   } else {
                       $linkurl.='?symb='.&escape($res);
                   }
                   $linkurl.='&command=ungraded';
             }              }
             $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.126  
changed lines
  Added in v.1.129

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