'.&mt('Total raw points: [_1]/[_2]',$totalcorrect,$totalpossible).'
'); + $r->print(''.&mt('Total raw points: [_1]/[_2]',&numberout($totalcorrect),&numberout($totalpossible)).'
'); $r->print(''); } # Total @@ -718,7 +724,7 @@ ENDMOVE $totalpossible=1.*$categories{$id.'_total'}; } if ($output) { - $r->print(''.&mt('Adjusted raw points: [_1]/[_2]',$totalcorrect,$totalpossible).'
'); + $r->print(''.&mt('Adjusted raw points: [_1]/[_2]',&numberout($totalcorrect),&numberout($totalpossible)).'
'); } @@ -762,7 +768,7 @@ ENDMOVE if ($output) { $r->print(''); if ($cangrade) { $r->print(''.&mt('Calculated points: [_1]/[_2]',$totalcorrect,$totalpossible).'
'); + $r->print(''.&mt('Calculated points: [_1]/[_2]',&numberout($totalcorrect),&numberout($totalpossible)).'
'); $r->print(''); } # @@ -795,17 +801,17 @@ ENDMOVE } } if ($output) { - $r->print(''); + $r->print('
'); if ($type eq 'percent') { my $perc='---'; if ($totalpossible) { $perc=100.*$totalcorrect/$totalpossible; } - $r->print(&mt('[_1] percent',$perc)); + $r->print(&mt('[_1] percent',&numberout($perc))); } else { - $r->print(&mt('[_1]/[_2] points',$totalcorrect,$totalpossible)); + $r->print(&mt('[_1]/[_2] points',&numberout($totalcorrect),&numberout($totalpossible))); } - $r->print('
'); + $r->print(''); } if ($output) { $r->print(''); } @@ -857,14 +863,21 @@ sub drop { # sub bottom_line_category { - my ($r,$cangrade,$sum,$total)=@_; + my ($r,$cangrade,$perc)=@_; $r->print(&Apache::loncommon::start_data_table_row()); if ($cangrade) { $r->print('