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.18 and 1.19

version 1.18, 2001/12/07 23:43:46	version 1.19, 2002/04/06 21:07:08
Line 64 sub listStudents {	Line 64 sub listStudents {
my ($request) = shift;	my ($request) = shift;
my ($cdom,$cnum) = split(/_/,$ENV{'request.course.id'});	my ($cdom,$cnum) = split(/_/,$ENV{'request.course.id'});
my $chome=$ENV{"course.$ENV{'request.course.id'}.home"};	my $chome=$ENV{"course.$ENV{'request.course.id'}.home"};
$request->print ("Found $cdom:$cnum:$chome<br />");	$request->print ('<h1>Show Student Submissions on Assessment</h1>'.
	'<table border="1"><tr><th>Username</th><th>Domain</th><th>Name</th><th> </th></tr>'
	);
my (%classlist) = &getclasslist($cdom,$cnum,$chome,'0');	my (%classlist) = &getclasslist($cdom,$cnum,$chome,'0');
foreach my $student ( sort(@{ $classlist{'allids'} }) ) {	foreach my $student ( sort(@{ $classlist{'allids'} }) ) {
my ($sname,$sdom) = split(/:/,$student);	my ($sname,$sdom) = split(/:/,$student);
Line 77 sub listStudents {	Line 79 sub listStudents {
# my $sfullname = $Apache::lonnet::unescape($nameparts[0]);	# my $sfullname = $Apache::lonnet::unescape($nameparts[0]);

if ( $Apache::grades::viewgrades eq 'F' ) {	if ( $Apache::grades::viewgrades eq 'F' ) {
$request->print('<form action="/adm/grades" method="post">'."\n");	$request->print(
$request->print("$sname @nameparts\n");	"\n".'<tr><form action="/adm/grades" method="post">'.
	"<td>$sname</td><td>$sdom</td><td>@nameparts</td><td>");
if ($ENV{'form.url'}) {	if ($ENV{'form.url'}) {
$request->print('<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />'."\n");	$request->print(
	'<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />');
}	}
if ($ENV{'form.symb'}) {	if ($ENV{'form.symb'}) {
$request->print('<input type="hidden" name="symb" value="'.$ENV{'form.symb'}.'" />'."\n");	$request->print(
	'<input type="hidden" name="symb" value="'.$ENV{'form.symb'}.'" />');
}	}
$request->print('<input type="hidden" name="command" value="'.$ENV{'form.command'}.'" />'."\n");	$request->print(
$request->print('<input type="hidden" name="student" value="'.$sname.'" />'."\n");	'<input type="hidden" name="command" value="'.$ENV{'form.command'}.'" />');
$request->print('<input type="hidden" name="domain" value="'.$sdom.'" />'."\n");	$request->print(
$request->print('<input type="submit" name="submit" value="View" />'."<br />\n");	'<input type="hidden" name="student" value="'.$sname.'" />');
$request->print('</form>');	$request->print(
	'<input type="hidden" name="domain" value="'.$sdom.'" />');
	$request->print(
	'<input type="submit" name="submit" value="View" />');
	$request->print('</td></form></tr>');
}	}
}	}
	$request->print('</table>');
}	}

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

Removed from v.1.18
changed lines
	Added in v.1.19