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.451 and 1.452

version 1.451, 2007/10/09 23:42:49	version 1.452, 2007/10/11 20:25:34
Line 531 sub getclasslist {	Line 531 sub getclasslist {
foreach my $grp(@getgroup) {	foreach my $grp(@getgroup) {
if ($group eq $grp) {	if ($group eq $grp) {
$exclude = 0;	$exclude = 0;
	} elsif (($grp eq 'none') && !$group) {
	$exclude = 0;
}	}
}	}
if ($exclude) {	if ($exclude) {
Line 970 LISTJAVASCRIPT	Line 972 LISTJAVASCRIPT

$ctr++;	$ctr++;
my $section = $classlist->{$student}->[&Apache::loncoursedata::CL_SECTION()];	my $section = $classlist->{$student}->[&Apache::loncoursedata::CL_SECTION()];
	my $group = $classlist->{$student}->[&Apache::loncoursedata::CL_GROUP()];
if ( $perm{'vgr'} eq 'F' ) {	if ( $perm{'vgr'} eq 'F' ) {
$gradeTable.='<tr bgcolor="#ffffe6">' if ($ctr%2 ==1);	$gradeTable.='<tr bgcolor="#ffffe6">' if ($ctr%2 ==1);
$gradeTable.='<td align="right">'.$ctr.' </td>'.	$gradeTable.='<td align="right">'.$ctr.' </td>'.
Line 978 LISTJAVASCRIPT	Line 980 LISTJAVASCRIPT
$student.':'.$$fullname{$student}.':::SECTION'.$section.	$student.':'.$$fullname{$student}.':::SECTION'.$section.
') " />  </label></td>'."\n".'<td>'.	') " />  </label></td>'."\n".'<td>'.
&nameUserString(undef,$$fullname{$student},$uname,$udom).	&nameUserString(undef,$$fullname{$student},$uname,$udom).
' '.$section.'</td>'."\n";	' '.$section.'/'.$group.'</td>'."\n";

if ($env{'form.showgrading'} eq 'yes' && $submitonly ne 'all') {	if ($env{'form.showgrading'} eq 'yes' && $submitonly ne 'all') {
foreach (sort keys(%status)) {	foreach (sort keys(%status)) {

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

Removed from v.1.451
changed lines
	Added in v.1.452