|
version 1.318, 2006/02/26 02:55:11
|
version 1.319, 2006/02/27 02:06:52
|
|
Line 1421 sub gradeBox {
|
Line 1421 sub gradeBox {
|
| '<font color="red">problem weight assigned by computer</font>'); |
'<font color="red">problem weight assigned by computer</font>'); |
| $wgt = ($wgt > 0 ? $wgt : '1'); |
$wgt = ($wgt > 0 ? $wgt : '1'); |
| my $score = ($$record{'resource.'.$partid.'.awarded'} eq '' ? |
my $score = ($$record{'resource.'.$partid.'.awarded'} eq '' ? |
| '' : $$record{'resource.'.$partid.'.awarded'}*$wgt); |
'' : compute_points($$record{'resource.'.$partid.'.awarded'},$wgt)); |
| my $result='<input type="hidden" name="WGT'.$counter.'_'.$partid.'" value="'.$wgt.'" />'."\n"; |
my $result='<input type="hidden" name="WGT'.$counter.'_'.$partid.'" value="'.$wgt.'" />'."\n"; |
| $result.='<br />'.$partid.' - '.$respid.'<br />'; |
$result.='<br />'.$partid.' - '.$respid.'<br />'; |
| my $display_part=&get_display_part($partid,undef,$symb); |
my $display_part=&get_display_part($partid,undef,$symb); |
|
Line 2893 sub viewstudentgrade {
|
Line 2893 sub viewstudentgrade {
|
| $aggregates{$part} = 1; |
$aggregates{$part} = 1; |
| } |
} |
| if ($type eq 'awarded') { |
if ($type eq 'awarded') { |
| my $pts = $score eq '' ? '' : $score*$$weight{$part}; |
my $pts = $score eq '' ? '' : compute_points($score,$$weight{$part}); |
| $result.='<input type="hidden" name="'. |
$result.='<input type="hidden" name="'. |
| 'GD_'.$student.'_'.$part.'_awarded_s" value="'.$pts.'" />'."\n"; |
'GD_'.$student.'_'.$part.'_awarded_s" value="'.$pts.'" />'."\n"; |
| $result.='<input type="text" name="'. |
$result.='<input type="text" name="'. |
![[BACK]](/icons/back.gif){kind=icon}
Return to grades.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework