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 />'; |
} |
} |
} |
} |
} |
} |