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.106 and 1.108

version 1.106, 2003/06/21 00:39:46	version 1.108, 2003/06/24 15:45:17
Line 1264 KEYWORDS	Line 1264 KEYWORDS
} else {	} else {
for my $part (sort keys(%$handgrade)) {	for my $part (sort keys(%$handgrade)) {
foreach (@$string) {	foreach (@$string) {
my ($partid,$respid) = /^resource\.(\d+)\.(\d+)\.submission/;	my ($partid,$respid) = /^resource\.(\w+)\.(\w+)\.submission/;
if ($part eq ($partid.'_'.$respid)) {	if ($part eq ($partid.'_'.$respid)) {
my ($ressub,$subval) = split(/:/,$_,2);	my ($ressub,$subval) = split(/:/,$_,2);
# Similarity check	# Similarity check
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;

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

Removed from v.1.106
changed lines
	Added in v.1.108