--- loncom/homework/grades.pm 2002/04/09 03:56:29 1.20 +++ 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.20 2002/04/09 03:56:29 albertel 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".'
'. - "$sname$sdom@nameparts"); + $request->print("\n".''."$sname$sdom@nameparts". + ''); if ($ENV{'form.url'}) { $request->print( ''); @@ -98,7 +97,7 @@ sub listStudents { ''); $request->print( ''); - $request->print('
'); + $request->print(''); } } $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;