--- loncom/homework/grades.pm 2001/11/29 23:16:29 1.17
+++ loncom/homework/grades.pm 2002/04/06 21:07:08 1.19
@@ -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.19 2002/04/06 21:07:08 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -64,7 +64,9 @@ sub listStudents {
my ($request) = shift;
my ($cdom,$cnum) = split(/_/,$ENV{'request.course.id'});
my $chome=$ENV{"course.$ENV{'request.course.id'}.home"};
- $request->print ("Found $cdom:$cnum:$chome
");
+ $request->print ('
Show Student Submissions on Assessment
'.
+ 'Username | Domain | Name | |
'
+ );
my (%classlist) = &getclasslist($cdom,$cnum,$chome,'0');
foreach my $student ( sort(@{ $classlist{'allids'} }) ) {
my ($sname,$sdom) = split(/:/,$student);
@@ -77,22 +79,29 @@ sub listStudents {
# my $sfullname = $Apache::lonnet::unescape($nameparts[0]);
if ( $Apache::grades::viewgrades eq 'F' ) {
- $request->print('
');
}
@@ -260,6 +269,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;
}