version 1.19, 2002/04/06 21:07:08
|
version 1.21, 2002/04/09 04:33:10
|
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 423 sub handler {
|
Line 422 sub handler {
|
} else { |
} else { |
$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); |
$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); |
if ($command eq 'submission') { |
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 ''); |
$request->print(&submission($request)) if ($ENV{'form.student'} ne ''); |
} elsif ($command eq 'viewgrades') { |
} elsif ($command eq 'viewgrades') { |
$request->print(&viewgrades($request)); |
$request->print(&viewgrades($request)); |