loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.20, 2002/04/09 03:56:29	version 1.21, 2002/04/09 04:33:10
Line 79 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(	$request->print("\n".'<tr>'."<td>$sname</td><td>$sdom</td><td>@nameparts</td><td>".
"\n".'<tr><form action="/adm/grades" method="post">'.	'<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(	$request->print(
'<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />');	'<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />');
Line 98 sub listStudents {	Line 97 sub listStudents {
'<input type="hidden" name="domain" value="'.$sdom.'" />');	'<input type="hidden" name="domain" value="'.$sdom.'" />');
$request->print(	$request->print(
'<input type="submit" name="submit" value="View" />');	'<input type="submit" name="submit" value="View" />');
$request->print('</td></form></tr>');	$request->print('</form></td></tr>');
}	}
}	}
$request->print('</table>');	$request->print('</table>');