--- loncom/interface/lonquickgrades.pm 2011/06/03 01:07:22 1.100 +++ loncom/interface/lonquickgrades.pm 2012/01/02 05:08:03 1.103 @@ -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.103 2012/01/02 05:08:03 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,6 +36,23 @@ use Apache::lonlocal; use Apache::lonnet; use Apache::grades; use Apache::loncoursedata; +use Apache::lonstudentassessment; + +use Time::HiRes; +use Spreadsheet::WriteExcel; +use Spreadsheet::WriteExcel::Utility(); +# +# Excel data +# +my $excel_sheet; +my $excel_workbook; +my $filename; +my $format; +my $request_aborted; +my $header_row; +my $cols_output; +my %prog_state; + sub handler { my $r = shift; @@ -90,6 +107,39 @@ sub real_handler { my $udom; my $stdid; if ($cangrade) { + $r->print("
'.&mt('Sections').''. + &Apache::loncommon::help_open_topic("Chart_Sections"). + ' | '. + ''.&mt('Groups').''. + ' | '. + ''.&mt('Student Data').''. + &Apache::loncommon::help_open_topic("Chart_Student_Data"). + ' | '. + ''.&mt('Access Status').''. + &Apache::loncommon::help_open_topic("Chart_Enrollment_Status"). + ' | '. + ''.&mt('Output Format').''. + &Apache::loncommon::help_open_topic("Chart_Output_Formats"). + ' | |
'."\n". + &Apache::lonstatistics::SectionSelect('Section','multiple',5). + ' | '. + &Apache::lonstatistics::GroupSelect('Group','multiple',5). + ' | '. + &Apache::lonstatistics::StudentDataSelect('StudentData','multiple',5,undef). + ' | '."\n". + &Apache::lonhtmlcommon::StatusOptions(undef,undef,5). + ' | '."\n". + &Apache::lonstudentassessment::CreateAndParseOutputSelector(). + ' | '. + ''. + ' |
'.&mt('Full Name: [_1]',&Apache::loncommon::plainname($uname,$udom)).'
'); } @@ -211,7 +261,7 @@ sub startGradeScreen { if ($env{'form.symb'}) { $r->print("\n".'