--- loncom/interface/lonquickgrades.pm 2011/06/03 01:07:22 1.100 +++ loncom/interface/lonquickgrades.pm 2011/06/04 19:49:28 1.101 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Quick Student Grades Display # -# $Id: lonquickgrades.pm,v 1.100 2011/06/03 01:07:22 www Exp $ +# $Id: lonquickgrades.pm,v 1.101 2011/06/04 19:49:28 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,6 +36,7 @@ use Apache::lonlocal; use Apache::lonnet; use Apache::grades; use Apache::loncoursedata; +use Apache::lonstudentassessment; sub handler { my $r = shift; @@ -90,6 +91,39 @@ sub real_handler { my $udom; my $stdid; 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.udom'}) { $udom=$env{'form.udom'}; } if ($env{'form.id'}) { $stdid=$env{'form.id'}; } @@ -107,8 +141,8 @@ sub real_handler { $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="'.$stdid.'" size="12" name="id" /> ' - ,$chooseopt).'<br />'. - '<input type="submit" name="display" value="'.&mt('Update Display').'" /></p>'); + ,$chooseopt). + ' <input type="submit" name="display" value="'.&mt('Display Individual Student').'" /></p>'); if (($uname) && ($udom)) { $r->print('<p>'.&mt('Full Name: [_1]',&Apache::loncommon::plainname($uname,$udom)).'</p>'); }