--- loncom/interface/statistics/lonstudentassessment.pm 2003/12/09 17:00:07 1.78 +++ loncom/interface/statistics/lonstudentassessment.pm 2004/02/11 16:02:37 1.85 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstudentassessment.pm,v 1.78 2003/12/09 17:00:07 matthew Exp $ +# $Id: lonstudentassessment.pm,v 1.85 2004/02/11 16:02:37 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -785,22 +785,20 @@ sub StudentAverageTotal { $total_ave += $ave; my $max = $Statistics->{$seq->{'symb'}}->{'max'}; $total_max += $max; - if ($ave == 0) { - $ave = "0.00"; - } - $ave .= ' '; - $max .= '   '; + $ave = sprintf("%.2f",$ave); $Str .= ''.$seq->{'title'}.''. - ''.$ave.''. - ''.$max.''."\n"; + ''.$ave.' '. + ''.$max.' '.''."\n"; } - $total_ave = int(100*$total_ave)/100; # only two digit + $total_ave = sprintf('%.2f',$total_ave); # only two digit $Str .= "\n"; $Str .= ''."\n"; $Str .= ''. "\n"; - $Str .= ''. - ''; + $Str .= ''. + ''. + ''. + ''; $Str .= "
Number of StudentsAverageMaximum
'.($num_students-$nodata_count).''.$total_ave.''.$total_max.'
'.($num_students-$nodata_count).''.$total_ave.' '.''.$total_max.' '.'
\n"; return $Str; } @@ -909,7 +907,7 @@ You may consider reducing the number of have selected.

LON-CAPA can produce CSV files of this data or Excel files of the -summary data (Scores Sum or Scores Sum & Totals). +Scores Summary data.

END $request_aborted = 1; @@ -958,9 +956,22 @@ END $sheetname = &Apache::loncommon::clean_excel_name($sheetname); $excel_sheet = $excel_workbook->addworksheet($sheetname); # + # Define some potentially useful formats + my $format; + $format->{'header'} = $excel_workbook->add_format(bold => 1, + bottom => 1, + align => 'center'); + $format->{'bold'} = $excel_workbook->add_format(bold=>1); + $format->{'h1'} = $excel_workbook->add_format(bold=>1, size=>18); + $format->{'h2'} = $excel_workbook->add_format(bold=>1, size=>16); + $format->{'h3'} = $excel_workbook->add_format(bold=>1, size=>14); + $format->{'date'} = $excel_workbook->add_format(num_format=> + 'mmm d yyyy hh:mm AM/PM'); + # # Put the course description in the header $excel_sheet->write($rows_output,$cols_output++, - $ENV{'course.'.$ENV{'request.course.id'}.'.description'}); + $ENV{'course.'.$ENV{'request.course.id'}.'.description'}, + $format->{'h1'}); $cols_output += 3; # # Put a description of the sections listed @@ -980,15 +991,17 @@ END $sectionstring = "Section ".$Sections[0]; } } - $excel_sheet->write($rows_output,$cols_output++,$sectionstring); + $excel_sheet->write($rows_output,$cols_output++,$sectionstring, + $format->{'h3'}); $cols_output += scalar(@Sections); # # Put the date in there too $excel_sheet->write($rows_output++,$cols_output++, - 'Compiled on '.localtime(time)); + 'Compiled on '.localtime(time),$format->{'h3'}); # $cols_output = 0; - $excel_sheet->write($rows_output++,$cols_output++,$datadescription); + $excel_sheet->write($rows_output++,$cols_output++,$datadescription, + $format->{'h3'}); # if ($data eq 'tries' || $data eq 'scores') { $rows_output++; @@ -997,7 +1010,8 @@ END # Add the student headers $cols_output = 0; foreach my $field (&get_student_fields_to_show()) { - $excel_sheet->write($rows_output,$cols_output++,$field); + $excel_sheet->write($rows_output,$cols_output++,$field, + $format->{'bold'}); } my $row_offset = 0; if ($data eq 'tries' || $data eq 'scores') { @@ -1008,7 +1022,7 @@ END my $total_formula_string = '=0'; foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { $excel_sheet->write($rows_output+$row_offset, - $cols_output,$seq->{'title'}); + $cols_output,$seq->{'title'},$format->{'h3'}); if ($data eq 'tries' || $data eq 'scores') { # Determine starting cell $seq->{'Excel:startcell'}= @@ -1016,59 +1030,68 @@ END ($rows_output,$cols_output); $seq->{'Excel:startcol'}=$cols_output; # Put the names of the problems and parts into the sheet + my $count = 0; foreach my $res (@{$seq->{'contents'}}) { - next if ($res->{'type'} ne 'assessment'); + if ($res->{'type'} ne 'assessment' || + ! exists($res->{'parts'}) || + ref($res->{'parts'}) ne 'ARRAY' || + scalar(@{$res->{'parts'}}) < 1) { + next; + } if (scalar(@{$res->{'parts'}}) > 1) { foreach my $part (@{$res->{'parts'}}) { $excel_sheet->write($rows_output, $cols_output++, - $res->{'title'}.' part '.$part); + $res->{'title'}.' part '.$part, + $format->{'bold'}); } } else { $excel_sheet->write($rows_output, $cols_output++, - $res->{'title'}); + $res->{'title'},$format->{'bold'}); } + $count++; } # Determine ending cell - $seq->{'Excel:endcell'} = - &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell - ($rows_output,$cols_output-1); - $seq->{'Excel:endcol'}=$cols_output-1; - # Determine cell the score is held in - $seq->{'Excel:scorecell'} = - &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell - ($rows_output,$cols_output); - $seq->{'Excel:scorecol'}=$cols_output; - $excel_sheet->write($rows_output,$cols_output++,'score'); + if ($count == 1) { + $seq->{'Excel:endcell'} = $seq->{'Excel:startcell'}; + $seq->{'Excel:endcol'} = $seq->{'Excel:startcol'}; + } else { + $seq->{'Excel:endcell'} = + &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell + ($rows_output,$cols_output-1); + $seq->{'Excel:endcol'} = $cols_output-1; + } # Create the formula for summing up this sequence + if (! exists($seq->{'Excel:endcell'}) || + ! defined($seq->{'Excel:endcell'})) { + $seq->{'Excel:endcell'} = $seq->{'Excel:startcell'}; + } $seq->{'Excel:sum'}= $excel_sheet->store_formula ('=SUM('.$seq->{'Excel:startcell'}. ':'.$seq->{'Excel:endcell'}.')'); - # - $total_formula_string.='+'. - &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell - ($rows_output,$cols_output-1); - $excel_sheet->write($rows_output,$cols_output++,'maximum'); - } elsif ($data eq 'sum and total') { - $excel_sheet->write($rows_output+1,$cols_output,'score'); - $total_formula_string.='+'. - &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell - ($rows_output+1,$cols_output); - $excel_sheet->write($rows_output+1,$cols_output+1,'maximum'); - $cols_output += 2; - } elsif ($data eq 'parts correct total') { - $excel_sheet->write($rows_output+1,$cols_output,'parts correct'); - $total_formula_string.='+'. - &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell - ($rows_output+1,$cols_output); - $excel_sheet->write($rows_output+1,$cols_output+1,'maximum'); - $cols_output += 2; + } + # Determine cell the score is held in + $seq->{'Excel:scorecell'} = + &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell + ($rows_output,$cols_output); + $seq->{'Excel:scorecol'}=$cols_output; + if ($data eq 'parts correct total') { + $excel_sheet->write($rows_output,$cols_output++,'parts correct', + $format->{'bold'}); } else { - $cols_output++; + $excel_sheet->write($rows_output,$cols_output++,'score', + $format->{'bold'}); } + # + $total_formula_string.='+'. + &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell + ($rows_output,$cols_output-1); + $excel_sheet->write($rows_output,$cols_output++,'maximum', + $format->{'bold'}); } - $excel_sheet->write($rows_output,$cols_output,'Grand Total'); + $excel_sheet->write($rows_output,$cols_output++,'Grand Total', + $format->{'bold'}); $total_formula = $excel_sheet->store_formula($total_formula_string); # # Bookkeeping @@ -1083,7 +1106,8 @@ END foreach my $field (&get_student_fields_to_show()) { if ($field eq 'username' || $field eq 'fullname' || $field eq 'id') { - $excel_sheet->write($rows_output,$cols_output++,'Maximum'); + $excel_sheet->write($rows_output,$cols_output++,'Maximum', + $format->{'bold'}); } else { $excel_sheet->write($rows_output,$cols_output++,''); } @@ -1091,6 +1115,7 @@ END # # Add the maximums for each sequence or assessment my %total_cell_translation; + my $grand_total = 0; foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { $total_cell_translation{$seq->{'Excel:scorecell'}} = &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell @@ -1120,28 +1145,46 @@ END if (! ($data eq 'sum only' || $data eq 'parts correct')) { $excel_sheet->write($rows_output,$cols_output++,''); } - my %replaceCells; - $replaceCells{$seq->{'Excel:startcell'}} = - &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell - ($rows_output,$seq->{'Excel:startcol'}); - $replaceCells{$seq->{'Excel:endcell'}} = - &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell - ($rows_output,$seq->{'Excel:endcol'}); + # + if ($data eq 'tries' || $data eq 'scores') { + my %replaceCells; + $replaceCells{$seq->{'Excel:startcell'}} = + &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell + ($rows_output,$seq->{'Excel:startcol'}); + $replaceCells{$seq->{'Excel:endcell'}} = + &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell + ($rows_output,$seq->{'Excel:endcol'}); + $excel_sheet->repeat_formula($rows_output,$cols_output++, + $seq->{'Excel:sum'},undef, + %replaceCells); + } else { + $excel_sheet->write($rows_output,$cols_output++, + $max); + } + $grand_total+=$max; + } + if ($data eq 'tries' || $data eq 'scores') { $excel_sheet->repeat_formula($rows_output,$cols_output++, - $seq->{'Excel:sum'},undef, - %replaceCells); + $total_formula,undef, + %total_cell_translation); + } else { + $excel_sheet->write($rows_output,$cols_output++,$grand_total); } - $excel_sheet->repeat_formula($rows_output,$cols_output++, - $total_formula,undef, - %total_cell_translation); $rows_output++; # # Let the user know what we are doing my $studentcount = scalar(@Apache::lonstatistics::Students); - $r->print("

Compiling Excel spreadsheet for ". - $studentcount.' student'); - $r->print('s') if ($studentcount > 1); - $r->print("

\n"); + if ($ENV{'form.SelectedStudent'}) { + $studentcount = '1'; + } + if ($studentcount > 1) { + $r->print('

'.&mt('Compiling Excel spreadsheet for [_1] students', + $studentcount)."

\n"); + } else { + $r->print('

'. + &mt('Compiling Excel spreadsheet for 1 student'). + "

\n"); + } $r->rflush(); # # Initialize progress window @@ -1179,6 +1222,7 @@ sub excel_outputstudent { # Write out sequence scores and totals data my %total_cell_translation; foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { + $cols_output = $seq->{'Excel:startcol'}; # Keep track of cells to translate in total cell $total_cell_translation{$seq->{'Excel:scorecell'}} = &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell @@ -1207,9 +1251,15 @@ sub excel_outputstudent { &Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell ($rows_output,$seq->{'Excel:endcol'}); # The undef is for the format - $excel_sheet->repeat_formula($rows_output,$cols_output++, - $seq->{'Excel:sum'},undef, - %replaceCells); + if (scalar(keys(%replaceCells)) == 1) { + $excel_sheet->repeat_formula($rows_output,$cols_output++, + $seq->{'Excel:sum'},undef, + %replaceCells,%replaceCells); + } else { + $excel_sheet->repeat_formula($rows_output,$cols_output++, + $seq->{'Excel:sum'},undef, + %replaceCells); + } # $excel_sheet->write($rows_output,$cols_output++,$seq_max); } elsif ($data eq 'sum and total' || $data eq 'sum only' || @@ -1224,7 +1274,6 @@ sub excel_outputstudent { $excel_sheet->repeat_formula($rows_output,$cols_output++, $total_formula,undef, %total_cell_translation); - # # Bookkeeping $rows_output++;