--- loncom/homework/grades.pm 2001/11/29 23:16:29 1.17 +++ loncom/homework/grades.pm 2001/12/07 23:43:46 1.18 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.17 2001/11/29 23:16:29 albertel Exp $ +# $Id: grades.pm,v 1.18 2001/12/07 23:43:46 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -260,6 +260,10 @@ sub submission { my $rendered=&Apache::loncommon::get_student_view($symb,$uname,$udom, $ENV{'request.course.id'}); $result.="Student's view of the problem:
$rendered
Correct answer:"; + + my $answer=&Apache::loncommon::get_student_answers($symb,$uname,$udom, + $ENV{'request.course.id'}); + $result.=$answer; return $result; }