loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.138, 2003/09/18 17:20:05	version 1.139, 2003/09/18 18:45:28
Line 2335 sub editgrades {	Line 2335 sub editgrades {
$newrecord{'resource.'.$_.'.awarded'} = 0;	$newrecord{'resource.'.$_.'.awarded'} = 0;
$newrecord{'resource.'.$_.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";	$newrecord{'resource.'.$_.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
$updateflag = 1;	$updateflag = 1;
	} elsif (!($old_part eq $partial && $old_score eq $score)) {
	$updateflag = 1;
	$newrecord{'resource.'.$_.'.awarded'} = $partial if $partial ne '';
	$newrecord{'resource.'.$_.'.solved'} = $score;
	$rec_update++;
}	}

$line .= '<td align="center">'.$old_aw.' </td>'.	$line .= '<td align="center">'.$old_aw.' </td>'.
'<td align="center">'.$awarded.	'<td align="center">'.$awarded.
($score eq 'excused' ? $score : '').' </td>';	($score eq 'excused' ? $score : '').' </td>';

if (!($old_part eq $partial && $old_score eq $score)) {
$updateflag = 1;
$newrecord{'resource.'.$_.'.awarded'} = $partial if $partial ne '';
$newrecord{'resource.'.$_.'.solved'} = $score;
$rec_update++;
}

my $partid=$_;	my $partid=$_;
foreach my $stores (@parts) {	foreach my $stores (@parts) {