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.95 and 1.96

version 1.95, 2003/06/12 20:11:07	version 1.96, 2003/06/13 15:43:28
Line 466 LISTJAVASCRIPT	Line 466 LISTJAVASCRIPT
'onClick="javascript:checkSelect(this.form.stuinfo);" '.	'onClick="javascript:checkSelect(this.form.stuinfo);" '.
'value="'.$viewgrade.'" /></form>'."\n";	'value="'.$viewgrade.'" /></form>'."\n";
if ($ctr == 0) {	if ($ctr == 0) {
$gradeTable='<br /> <font color="red">'.	my $num_students=(scalar(keys(%$fullname)));
'No submission found for this resource.</font><br />';	if ($num_students eq 0) {
	$gradeTable='<br /> <font color="red">There are no students currently enrolled.</font>';
	} else {
	$gradeTable='<br /> <font color="red">'.
	'No submissions found for this resource for any students. ('.$num_students.' checked for submissions</font><br />';
	}
} elsif ($ctr == 1) {	} elsif ($ctr == 1) {
$gradeTable =~ s/type=checkbox/type=checkbox checked/;	$gradeTable =~ s/type=checkbox/type=checkbox checked/;
}	}
Line 1924 sub viewgrades {	Line 1929 sub viewgrades {
$result.='<input type="hidden" name="total" value="'.$ctr.'" />'."\n";	$result.='<input type="hidden" name="total" value="'.$ctr.'" />'."\n";
$result.='<input type="button" value="Submit Changes" '.	$result.='<input type="button" value="Submit Changes" '.
'onClick="javascript:submit();" TARGET=_self /></form>'."\n";	'onClick="javascript:submit();" TARGET=_self /></form>'."\n";
	if (scalar(%$fullname) eq 0) {
	my $colspan=3+scalar(@parts);
	$result='<font color="red">There are no students in section "'.$ENV{'form.section'}.'" with enrollment status "'.$ENV{'form.status'}.'" to modify or grade.</font>';
	}
$result.=&show_grading_menu_form($symb,$url);	$result.=&show_grading_menu_form($symb,$url);
return $result;	return $result;
}	}

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

Removed from v.1.95
changed lines
	Added in v.1.96