|
version 1.291, 2005/10/01 03:27:44
|
version 1.293, 2005/10/30 02:40:09
|
|
Line 2835 sub editgrades {
|
Line 2835 sub editgrades {
|
| my $dropMenu = $env{'form.GD_'.$user.'_'.$_.'_solved'}; |
my $dropMenu = $env{'form.GD_'.$user.'_'.$_.'_solved'}; |
| $score = 'excused' if (($dropMenu eq 'excused') && ($score ne 'excused')); |
$score = 'excused' if (($dropMenu eq 'excused') && ($score ne 'excused')); |
| |
|
| |
$newrecord{'resource.'.$_.'.regrader'}= |
| |
"$env{'user.name'}:$env{'user.domain'}"; |
| if ($dropMenu eq 'reset status' && |
if ($dropMenu eq 'reset status' && |
| $old_score ne '') { # ignore if no previous attempts => nothing to reset |
$old_score ne '') { # ignore if no previous attempts => nothing to reset |
| $newrecord{'resource.'.$_.'.tries'} = 0; |
$newrecord{'resource.'.$_.'.tries'} = 0; |
| $newrecord{'resource.'.$_.'.solved'} = ''; |
$newrecord{'resource.'.$_.'.solved'} = ''; |
| $newrecord{'resource.'.$_.'.award'} = ''; |
$newrecord{'resource.'.$_.'.award'} = ''; |
| $newrecord{'resource.'.$_.'.awarded'} = 0; |
$newrecord{'resource.'.$_.'.awarded'} = 0; |
| $newrecord{'resource.'.$_.'.regrader'}="$env{'user.name'}:$env{'user.domain'}"; |
|
| $updateflag = 1; |
$updateflag = 1; |
| if ($env{'form.GD_'.$user.'_'.$_.'_aggtries'} > 0) { |
if ($env{'form.GD_'.$user.'_'.$_.'_aggtries'} > 0) { |
| my $aggtries = $env{'form.GD_'.$user.'_'.$_.'_aggtries'}; |
my $aggtries = $env{'form.GD_'.$user.'_'.$_.'_aggtries'}; |
|
Line 4040 SCANTRONFORM
|
Line 4041 SCANTRONFORM
|
| </tr> |
</tr> |
| <tr bgcolor="#ffffe6"> |
<tr bgcolor="#ffffe6"> |
| <td colspan="2"> |
<td colspan="2"> |
| <input type="submit" value="Show List of Files" /> |
<input type="submit" value="Download: Show List of Associated Files" /> |
| </td> |
</td> |
| </tr> |
</tr> |
| </table> |
</table> |
![[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