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

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.13 and 1.14

version 1.13, 2005/05/23 23:06:23 version 1.14, 2005/05/24 15:54:19
Line 85  sub handler { Line 85  sub handler {
             (undef,'Course Action Items','Course_Action_Items_Display'));              (undef,'Course Action Items','Course_Action_Items_Display'));
     }      }
     &display_main_box($r,$command);      &display_main_box($r,$command);
       return OK;
 }  }
   
 #------------------------------  #------------------------------
Line 288  END Line 289  END
     if (@warnings > 0) {      if (@warnings > 0) {
 #        @warnings = sort { &cmp_title($a,$b) } @warnings;  #        @warnings = sort { &cmp_title($a,$b) } @warnings;
         $r->print('<form name="reset_tracking" method="post">'.          $r->print('<form name="reset_tracking" method="post">'.
                  '  <input type="hidden" name="action" value="reset"'."\n");                   '  <input type="hidden" name="action" value="reset" />'."\n");
         $r->print('<tr bgcolor="#cccccc"><td><b><small>Resource</small></b></td><td align="right"><b><small>Part</small></b></td><td align="right"><b><small>Num. students</small></b></td><td align="right"><b><small>Av. Attempts</small></b></td><td align="right"><b><small>Deg. Diff</small></b></td><td align="right"><b><small>Last Reset</small></b></td><td align="right"><b><small>Reset Count?</small></b></td></tr>');          $r->print('<tr bgcolor="#cccccc"><td><b><small>Resource</small></b></td><td align="right"><b><small>Part</small></b></td><td align="right"><b><small>Num. students</small></b></td><td align="right"><b><small>Av. Attempts</small></b></td><td align="right"><b><small>Deg. Diff</small></b></td><td align="right"><b><small>Last Reset</small></b></td><td align="right"><b><small>Reset Count?</small></b></td></tr>');
         foreach my $res (@warnings) {          foreach my $res (@warnings) {
             if ($warningnum %2 == 1) {              if ($warningnum %2 == 1) {
Line 728  sub process_reset { Line 729  sub process_reset {
             $result =~ s/; $//;              $result =~ s/; $//;
             $result .= '<br />';              $result .= '<br />';
         } else {          } else {
             $result = $title.' -part '.$part.': '.&mt('Unable to reset counters to zero due to ').$putresult.'.<br />'."\n";              $result = $title.' -part '.$part.': '.&mt('Unable to reset counters to zero due to [_1]',$putresult).'.<br />'."\n";
         }          }
     }      }
     return $result;      return $result;
Line 747  sub process_update { Line 748  sub process_update {
                         
             my ($shortname) = ($name =~ /^internal\.threshold_(.+)$/);               my ($shortname) = ($name =~ /^internal\.threshold_(.+)$/); 
             if ($put_result eq 'ok') {              if ($put_result eq 'ok') {
                 $setoutput.=&mt('Set threshold for').' <b>'.$$threshold_titles{$shortname}.'</b> '.&mt('to').' <b>'.$value.'</b>.<br />';                  $setoutput.=&mt('Set threshold for [_1] to [_2]',
             } else {   '<b>'.$$threshold_titles{$shortname}.'</b>',
                 $setoutput.=&mt('Unable to set threshold for').' <b>'.$name.'</b> '.&mt('to').   '<b>'.$value.'</b>').'<br />';
                     ' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';      } else {
                   $setoutput.=&mt('Unable to set threshold for [_1] to [_2] due to [_3].',
    '<b>'.$name.'</b>','<b>'.$value.'</b>',
    '<tt>'.$put_result.'</tt>').'<br />';
             }              }
         }          }
     }      }
Removed from v.1.13  
changed lines
  Added in v.1.14

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