version 1.20, 2002/04/09 03:56:29
|
version 1.22, 2002/05/03 22:34:25
|
Line 79 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( |
$request->print("\n".'<tr>'."<td>$sname</td><td>$sdom</td><td>@nameparts</td><td>". |
"\n".'<tr><form action="/adm/grades" method="post">'. |
'<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( |
$request->print( |
'<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />'); |
'<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />'); |
Line 98 sub listStudents {
|
Line 97 sub listStudents {
|
'<input type="hidden" name="domain" value="'.$sdom.'" />'); |
'<input type="hidden" name="domain" value="'.$sdom.'" />'); |
$request->print( |
$request->print( |
'<input type="submit" name="submit" value="View" />'); |
'<input type="submit" name="submit" value="View" />'); |
$request->print('</td></form></tr>'); |
$request->print('</form></td></tr>'); |
} |
} |
} |
} |
$request->print('</table>'); |
$request->print('</table>'); |
Line 268 sub submission {
|
Line 267 sub submission {
|
my $result="<h2> Submission Record </h2> $uname:$udom for $url <br />".$answer; |
my $result="<h2> Submission Record </h2> $uname:$udom for $url <br />".$answer; |
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:<br />"; |
|
|
my $answer=&Apache::loncommon::get_student_answers($symb,$uname,$udom, |
$answer=&Apache::loncommon::get_student_answers($symb,$uname,$udom, |
$ENV{'request.course.id'}); |
$ENV{'request.course.id'}); |
$result.=$answer; |
$result.=$answer; |
return $result; |
return $result; |