loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.107, 2003/06/23 21:14:55	version 1.108, 2003/06/24 15:45:17
Line 2083 sub editgrades {	Line 2083 sub editgrades {
$line .= '<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>';
my $usec=%$classlist->{"$uname:$udom"}[5];	my $usec=$classlist->{"$uname:$udom"}[5];
if (!&canmodify($usec)) {	if (!&canmodify($usec)) {
my $numcols=scalar(@partid)(scalar(@parts)-1)2;	my $numcols=scalar(@partid)(scalar(@parts)-1)2;
$noupdate.=$line."<td colspan=\"$numcols\"><font color=\"red\">Not allowed to modify student</font></td></tr>";	$noupdate.=$line."<td colspan=\"$numcols\"><font color=\"red\">Not allowed to modify student</font></td></tr>";
Line 2440 sub csvuploadassign {	Line 2440 sub csvuploadassign {
push(@skipped,"$username:$domain");	push(@skipped,"$username:$domain");
next;	next;
}	}
my $usec=%$classlist->{"$username:$domain"}[5];	my $usec=$classlist->{"$username:$domain"}[5];
if (!&canmodify($usec)) {	if (!&canmodify($usec)) {
push(@notallowed,"$username:$domain");	push(@notallowed,"$username:$domain");
next;	next;