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.17 and 1.20

version 1.17, 2001/11/29 23:16:29	version 1.20, 2002/04/09 03:56:29
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>');
}	}


Line 260 sub submission {	Line 269 sub submission {
my $rendered=&Apache::loncommon::get_student_view($symb,$uname,$udom,	my $rendered=&Apache::loncommon::get_student_view($symb,$uname,$udom,
$ENV{'request.course.id'});	$ENV{'request.course.id'});
$result.="Student's view of the problem:<br /> $rendered <br /> Correct answer:";	$result.="Student's view of the problem:<br /> $rendered <br /> Correct answer:";

	my $answer=&Apache::loncommon::get_student_answers($symb,$uname,$udom,
	$ENV{'request.course.id'});
	$result.=$answer;
return $result;	return $result;
}	}

Line 410 sub handler {	Line 423 sub handler {
} else {	} else {
$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});	$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});
if ($command eq 'submission') {	if ($command eq 'submission') {
$request->print(&listStudents($request)) if ($ENV{'form.student'} eq '');	&listStudents($request) if ($ENV{'form.student'} eq '');
$request->print(&submission($request)) if ($ENV{'form.student'} ne '');	$request->print(&submission($request)) if ($ENV{'form.student'} ne '');
} elsif ($command eq 'viewgrades') {	} elsif ($command eq 'viewgrades') {
$request->print(&viewgrades($request));	$request->print(&viewgrades($request));

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

Removed from v.1.17
changed lines
	Added in v.1.20