loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.92 and 1.93

version 1.92, 2003/05/30 21:33:15	version 1.93, 2003/05/30 21:42:36
Line 2035 sub editgrades {	Line 2035 sub editgrades {
$result .= '</tr><tr bgcolor="#deffff">';	$result .= '</tr><tr bgcolor="#deffff">';
$result .= $header;	$result .= $header;
$result .= '</tr>'."\n";	$result .= '</tr>'."\n";
	my $noupdate;
for ($i=0; $i<$ENV{'form.total'}; $i++) {	for ($i=0; $i<$ENV{'form.total'}; $i++) {
	my $line;
my $user = $ENV{'form.ctr'.$i};	my $user = $ENV{'form.ctr'.$i};
my $usercolon = $user;	my $usercolon = $user;
$usercolon =~s/_/:/;	$usercolon =~s/_/:/;
Line 2044 sub editgrades {	Line 2045 sub editgrades {
my %newrecord;	my %newrecord;
my $updateflag = 0;	my $updateflag = 0;

$result .= '<tr bgcolor="#ffffde"><td>'.$uname.' </td><td>'.	$line .= '<tr bgcolor="#ffffde"><td>'.$uname.' </td><td>'.
$udom.' </td><td>'.	$udom.' </td><td>'.
$$fullname{$usercolon}.' </td>';	$$fullname{$usercolon}.' </td>';
foreach (@partid) {	foreach (@partid) {
Line 2066 sub editgrades {	Line 2067 sub editgrades {
}	}
$score = 'excused' if (($ENV{'form.GD_'.$user.'_'.$_.'_solved'} eq 'excused') &&	$score = 'excused' if (($ENV{'form.GD_'.$user.'_'.$_.'_solved'} eq 'excused') &&
($score ne 'excused'));	($score ne 'excused'));
$result .= '<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>';

Line 2089 sub editgrades {	Line 2090 sub editgrades {
$newrecord{'resource.'.$part.'regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";	$newrecord{'resource.'.$part.'regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}";
$updateflag=1;	$updateflag=1;
}	}
$result .= '<td align="center">'.$old_aw.' </td>'.	$line .= '<td align="center">'.$old_aw.' </td>'.
'<td align="center">'.$awarded.' </td>';	'<td align="center">'.$awarded.' </td>';
}	}
}	}
	$line.='</tr>'."\n";
if ($updateflag) {	if ($updateflag) {
$count++;	$count++;
&Apache::lonnet::cstore(\%newrecord,$symb,$ENV{'request.course.id'},	&Apache::lonnet::cstore(\%newrecord,$symb,$ENV{'request.course.id'},
$udom,$uname);	$udom,$uname);
	$result.=$line;
	} else {
	$noupdate.=$line;
}	}
$result .= '</tr>'."\n";	}
	if ($noupdate) {
	$result .= '<tr bgcolor="#ffffff"><td align="center" colspan="7">No Changes Occured For the Students Below</td></tr>'.$noupdate;
}	}
$result .= '</table></td></tr></table>'."\n".	$result .= '</table></td></tr></table>'."\n".
&show_grading_menu_form ($symb,$url);	&show_grading_menu_form ($symb,$url);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.92
changed lines
	Added in v.1.93