--- loncom/interface/lonwhatsnew.pm 2005/05/23 23:06:23 1.13 +++ loncom/interface/lonwhatsnew.pm 2005/05/24 15:54:19 1.14 @@ -1,5 +1,5 @@ # -# $Id: lonwhatsnew.pm,v 1.13 2005/05/23 23:06:23 raeburn Exp $ +# $Id: lonwhatsnew.pm,v 1.14 2005/05/24 15:54:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -85,6 +85,7 @@ sub handler { (undef,'Course Action Items','Course_Action_Items_Display')); } &display_main_box($r,$command); + return OK; } #------------------------------ @@ -288,7 +289,7 @@ END if (@warnings > 0) { # @warnings = sort { &cmp_title($a,$b) } @warnings; $r->print('
'. - ' '."\n"); $r->print('ResourcePartNum. studentsAv. AttemptsDeg. DiffLast ResetReset Count?'); foreach my $res (@warnings) { if ($warningnum %2 == 1) { @@ -728,7 +729,7 @@ sub process_reset { $result =~ s/; $//; $result .= '
'; } else { - $result = $title.' -part '.$part.': '.&mt('Unable to reset counters to zero due to ').$putresult.'.
'."\n"; + $result = $title.' -part '.$part.': '.&mt('Unable to reset counters to zero due to [_1]',$putresult).'.
'."\n"; } } return $result; @@ -747,10 +748,13 @@ sub process_update { my ($shortname) = ($name =~ /^internal\.threshold_(.+)$/); if ($put_result eq 'ok') { - $setoutput.=&mt('Set threshold for').' '.$$threshold_titles{$shortname}.' '.&mt('to').' '.$value.'.
'; - } else { - $setoutput.=&mt('Unable to set threshold for').' '.$name.' '.&mt('to'). - ' '.$value.' '.&mt('due to').' '.$put_result.'.
'; + $setoutput.=&mt('Set threshold for [_1] to [_2]', + ''.$$threshold_titles{$shortname}.'', + ''.$value.'').'
'; + } else { + $setoutput.=&mt('Unable to set threshold for [_1] to [_2] due to [_3].', + ''.$name.'',''.$value.'', + ''.$put_result.'').'
'; } } }