version 1.95, 2011/05/28 16:55:49
|
version 1.96, 2011/06/01 20:32:30
|
Line 588 sub process_category_edits {
|
Line 588 sub process_category_edits {
|
|
|
sub output_category_table { |
sub output_category_table { |
my ($r,$cangrade,$navmaps,%categories)=@_; |
my ($r,$cangrade,$navmaps,%categories)=@_; |
my $sum=0; |
|
my $total=0; |
my $totalweight=0; |
|
my $totalpoints=0; |
|
|
$r->print(&Apache::loncommon::start_data_table()); |
$r->print(&Apache::loncommon::start_data_table()); |
# |
# |
&output_category_table_header($r,$cangrade); |
&output_category_table_header($r,$cangrade); |
Line 600 sub output_category_table {
|
Line 602 sub output_category_table {
|
my $maxpos=$#order; |
my $maxpos=$#order; |
for (my $i=0;$i<=$maxpos;$i++) { |
for (my $i=0;$i<=$maxpos;$i++) { |
my ($correct,$possible,$type,$weight)=&output_and_calc_category($r,$cangrade,$navmaps,$order[$i],$i,$maxpos,\%performance,1,%categories); |
my ($correct,$possible,$type,$weight)=&output_and_calc_category($r,$cangrade,$navmaps,$order[$i],$i,$maxpos,\%performance,1,%categories); |
$sum+=$correct*$weight; |
unless ($possible) { next; } |
$total+=$weight; |
$totalpoints+=$weight*$correct/$possible; |
|
$totalweight+=$weight; |
} |
} |
# |
# |
&bottom_line_category($r,$cangrade,$sum,$total); |
my $perc=0; |
|
if ($totalweight) { $perc=100.*$totalpoints/$totalweight; } |
|
|
|
&bottom_line_category($r,$cangrade,$perc); |
# |
# |
$r->print(&Apache::loncommon::end_data_table()); |
$r->print(&Apache::loncommon::end_data_table()); |
return $sum; |
return $perc; |
} |
} |
|
|
sub output_category_table_header { |
sub output_category_table_header { |
Line 681 ENDMOVE
|
Line 687 ENDMOVE
|
if ($possible>0) { push(@individual,"$possible:$correct"); } |
if ($possible>0) { push(@individual,"$possible:$correct"); } |
if ($output) { |
if ($output) { |
$r->print('<li>'); |
$r->print('<li>'); |
$r->print(&Apache::lonnet::gettitle($contentid).' ('.$correct.'/'.$possible.')'); |
$r->print(&Apache::lonnet::gettitle($contentid).' ('.&numberout($correct).'/'.&numberout($possible).')'); |
if ($cangrade) { |
if ($cangrade) { |
$r->print(' <a href="javascript:storecmd(\'delcont_'.$id.'______'.$contentid.'\');">'.&mt('Delete').'</a>'); |
$r->print(' <a href="javascript:storecmd(\'delcont_'.$id.'______'.$contentid.'\');">'.&mt('Delete').'</a>'); |
} |
} |
Line 693 ENDMOVE
|
Line 699 ENDMOVE
|
if ($cangrade) { |
if ($cangrade) { |
$r->print('<br />'.&Apache::loncommon::selectresource_link('quickform','addcont_'.$id,&mt('Add Problem or Folder')).'<br />'); |
$r->print('<br />'.&Apache::loncommon::selectresource_link('quickform','addcont_'.$id,&mt('Add Problem or Folder')).'<br />'); |
} |
} |
$r->print('<p>'.&mt('Total raw points: [_1]/[_2]',$totalcorrect,$totalpossible).'</p>'); |
$r->print('<p><b>'.&mt('Total raw points: [_1]/[_2]',&numberout($totalcorrect),&numberout($totalpossible)).'</b></p>'); |
$r->print('</td>'); |
$r->print('</td>'); |
} |
} |
# Total |
# Total |
Line 718 ENDMOVE
|
Line 724 ENDMOVE
|
$totalpossible=1.*$categories{$id.'_total'}; |
$totalpossible=1.*$categories{$id.'_total'}; |
} |
} |
if ($output) { |
if ($output) { |
$r->print('<p>'.&mt('Adjusted raw points: [_1]/[_2]',$totalcorrect,$totalpossible).'</p>'); |
$r->print('<p><b>'.&mt('Adjusted raw points: [_1]/[_2]',&numberout($totalcorrect),&numberout($totalpossible)).'</b></p>'); |
} |
} |
|
|
|
|
Line 762 ENDMOVE
|
Line 768 ENDMOVE
|
if ($output) { |
if ($output) { |
$r->print('</ul>'); |
$r->print('</ul>'); |
if ($cangrade) { $r->print('<br />'.&new_calc_rule_form($id)); } |
if ($cangrade) { $r->print('<br />'.&new_calc_rule_form($id)); } |
$r->print('<p>'.&mt('Calculated points: [_1]/[_2]',$totalcorrect,$totalpossible).'</p>'); |
$r->print('<p><b>'.&mt('Calculated points: [_1]/[_2]',&numberout($totalcorrect),&numberout($totalpossible)).'</b></p>'); |
$r->print('</td>'); |
$r->print('</td>'); |
} |
} |
# |
# |
Line 795 ENDMOVE
|
Line 801 ENDMOVE
|
} |
} |
} |
} |
if ($output) { |
if ($output) { |
$r->print('<p>'); |
$r->print('<p><b>'); |
if ($type eq 'percent') { |
if ($type eq 'percent') { |
my $perc='---'; |
my $perc='---'; |
if ($totalpossible) { |
if ($totalpossible) { |
$perc=100.*$totalcorrect/$totalpossible; |
$perc=100.*$totalcorrect/$totalpossible; |
} |
} |
$r->print(&mt('[_1] percent',$perc)); |
$r->print(&mt('[_1] percent',&numberout($perc))); |
} else { |
} else { |
$r->print(&mt('[_1]/[_2] points',$totalcorrect,$totalpossible)); |
$r->print(&mt('[_1]/[_2] points',&numberout($totalcorrect),&numberout($totalpossible))); |
} |
} |
$r->print('</p>'); |
$r->print('</b></p>'); |
} |
} |
if ($output) { $r->print('</td>'); } |
if ($output) { $r->print('</td>'); } |
|
|
Line 857 sub drop {
|
Line 863 sub drop {
|
# |
# |
|
|
sub bottom_line_category { |
sub bottom_line_category { |
my ($r,$cangrade,$sum,$total)=@_; |
my ($r,$cangrade,$perc)=@_; |
$r->print(&Apache::loncommon::start_data_table_row()); |
$r->print(&Apache::loncommon::start_data_table_row()); |
if ($cangrade) { |
if ($cangrade) { |
$r->print('<td colspan="3"><a href="javascript:storecmd(\'createnewcat\');">'.&mt('Create New Category').'</a></td>'); |
$r->print('<td colspan="3"><a href="javascript:storecmd(\'createnewcat\');">'.&mt('Create New Category').'</a></td>'); |
} |
} |
$r->print('<td colspan="6">'.&mt('Current:').$sum.'<br />'.&mt('Total:').$total.'<br /></td>'); |
$r->print('<td colspan="6"><b>'.&mt('Total: [_1] percent',&numberout($perc)).'</b></td>'); |
} |
} |
|
|
|
sub numberout { |
|
my ($number)=@_; |
|
my $printout=sprintf("%.3f", $number); |
|
$printout=~s/0+$//; |
|
$printout=~s/\.$//; |
|
return $printout; |
|
} |
# |
# |
# Make one new category |
# Make one new category |
# |
# |