--- loncom/homework/grades.pm 2002/04/06 21:07:08 1.19
+++ loncom/homework/grades.pm 2002/05/03 22:34:25 1.22
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.19 2002/04/06 21:07:08 www Exp $
+# $Id: grades.pm,v 1.22 2002/05/03 22:34:25 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -79,9 +79,8 @@ sub listStudents {
# my $sfullname = $Apache::lonnet::unescape($nameparts[0]);
if ( $Apache::grades::viewgrades eq 'F' ) {
- $request->print(
- "\n".'
');
}
}
$request->print('');
@@ -268,9 +267,9 @@ sub submission {
my $result=" Submission Record
$uname:$udom for $url
".$answer;
my $rendered=&Apache::loncommon::get_student_view($symb,$uname,$udom,
$ENV{'request.course.id'});
- $result.="Student's view of the problem:
$rendered
Correct answer:";
+ $result.="Student's view of the problem:
$rendered
Correct answer:
";
- my $answer=&Apache::loncommon::get_student_answers($symb,$uname,$udom,
+ $answer=&Apache::loncommon::get_student_answers($symb,$uname,$udom,
$ENV{'request.course.id'});
$result.=$answer;
return $result;
@@ -423,7 +422,7 @@ sub handler {
} else {
$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});
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 '');
} elsif ($command eq 'viewgrades') {
$request->print(&viewgrades($request));