version 1.100, 2011/06/03 01:07:22
|
version 1.101, 2011/06/04 19:49:28
|
Line 36 use Apache::lonlocal;
|
Line 36 use Apache::lonlocal;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::grades; |
use Apache::grades; |
use Apache::loncoursedata; |
use Apache::loncoursedata; |
|
use Apache::lonstudentassessment; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 90 sub real_handler {
|
Line 91 sub real_handler {
|
my $udom; |
my $udom; |
my $stdid; |
my $stdid; |
if ($cangrade) { |
if ($cangrade) { |
|
$r->print("<h2>".&mt("Download Multiple")."</h2>". |
|
'<table cellspacing="5">'."\n". |
|
'<tr>'. |
|
'<td align="center"><b>'.&mt('Sections').'</b>'. |
|
&Apache::loncommon::help_open_topic("Chart_Sections"). |
|
'</td>'. |
|
'<td align="center"><b>'.&mt('Groups').'</b>'. |
|
'</td>'. |
|
'<td align="center"><b>'.&mt('Student Data').'</b>'. |
|
&Apache::loncommon::help_open_topic("Chart_Student_Data"). |
|
'</td>'. |
|
'<td align="center"><b>'.&mt('Access Status').'</b>'. |
|
&Apache::loncommon::help_open_topic("Chart_Enrollment_Status"). |
|
'</td>'. |
|
'<td align="center"><b>'.&mt('Output Format').'</b>'. |
|
&Apache::loncommon::help_open_topic("Chart_Output_Formats"). |
|
'</td><td> </td></tr>'."\n". |
|
'<tr><td align="center">'."\n". |
|
&Apache::lonstatistics::SectionSelect('Section','multiple',5). |
|
'</td><td align="center">'. |
|
&Apache::lonstatistics::GroupSelect('Group','multiple',5). |
|
'</td><td align="center">'. |
|
&Apache::lonstatistics::StudentDataSelect('StudentData','multiple',5,undef). |
|
'</td><td>'."\n". |
|
&Apache::lonhtmlcommon::StatusOptions(undef,undef,5). |
|
'</td><td>'."\n". |
|
&Apache::lonstudentassessment::CreateAndParseOutputSelector(). |
|
'</td><td>'. |
|
'<input type="submit" name="download" value="'.&mt('Display/Download Multiple Students').'" />'. |
|
'</td></tr>'."\n". |
|
'</table>'."\n" |
|
); |
|
$r->print("<hr /><h2>".&mt("Display Individual")."</h2>"); |
if ($env{'form.uname'}) { $uname=$env{'form.uname'}; } |
if ($env{'form.uname'}) { $uname=$env{'form.uname'}; } |
if ($env{'form.udom'}) { $udom=$env{'form.udom'}; } |
if ($env{'form.udom'}) { $udom=$env{'form.udom'}; } |
if ($env{'form.id'}) { $stdid=$env{'form.id'}; } |
if ($env{'form.id'}) { $stdid=$env{'form.id'}; } |
Line 107 sub real_handler {
|
Line 141 sub real_handler {
|
$r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]' |
$r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]' |
,'<input type="text" value="'.$uname.'" size="12" name="uname" />' |
,'<input type="text" value="'.$uname.'" size="12" name="uname" />' |
,'<input type="text" value="'.$stdid.'" size="12" name="id" /> ' |
,'<input type="text" value="'.$stdid.'" size="12" name="id" /> ' |
,$chooseopt).'<br />'. |
,$chooseopt). |
'<input type="submit" name="display" value="'.&mt('Update Display').'" /></p>'); |
' <input type="submit" name="display" value="'.&mt('Display Individual Student').'" /></p>'); |
if (($uname) && ($udom)) { |
if (($uname) && ($udom)) { |
$r->print('<p>'.&mt('Full Name: [_1]',&Apache::loncommon::plainname($uname,$udom)).'</p>'); |
$r->print('<p>'.&mt('Full Name: [_1]',&Apache::loncommon::plainname($uname,$udom)).'</p>'); |
} |
} |