--- loncom/interface/statistics/lonstudentassessment.pm 2003/06/10 19:19:57 1.55 +++ loncom/interface/statistics/lonstudentassessment.pm 2003/06/23 16:06:11 1.62 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstudentassessment.pm,v 1.55 2003/06/10 19:19:57 matthew Exp $ +# $Id: lonstudentassessment.pm,v 1.62 2003/06/23 16:06:11 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -140,6 +140,10 @@ sub BuildStudentAssessmentPage { my ($r,$c)=@_; undef($Statistics); $single_student_mode = 1 if ($ENV{'form.SelectedStudent'}); + if ($ENV{'form.selectstudent'}) { + &Apache::lonstatistics::DisplayClasslist($r); + return; + } # # Print out the HTML headers for the interface # This also parses the output mode selector @@ -149,6 +153,7 @@ sub BuildStudentAssessmentPage { $r->print(''); $r->rflush(); + # if (! exists($ENV{'form.notfirstrun'}) && ! $single_student_mode) { return; } @@ -179,6 +184,13 @@ sub BuildStudentAssessmentPage { @Students = @Apache::lonstatistics::Students; } # + # Perform generic initialization tasks + # Since we use lonnet::EXT to retrieve problem weights, + # to ensure current data we must clear the caches out. + # This makes sure that parameter changes at the student level + # are immediately reflected in the chart. + &Apache::lonnet::clear_EXT_cache_status(); + # # Call the initialize routine selected above $initialize->($r); foreach my $student (@Students) { @@ -285,8 +297,12 @@ sub CreateInterface { $Str .= 'Student Data'; $Str .= 'Enrollment Status'; $Str .= 'Sequences and Folders'; - $Str .= 'Output Format'; - $Str .= 'Output Data'; + $Str .= 'Output Format'. + &Apache::loncommon::help_open_topic("Chart_Output_Formats"). + ''; + $Str .= 'Output Data'. + &Apache::loncommon::help_open_topic("Chart_Output_Data"). + ''; $Str .= ''."\n"; # $Str .= ''."\n"; @@ -314,7 +330,13 @@ sub CreateInterface { $Str .= ''."\n"; $Str .= ''."\n"; $Str .= ''; - $Str .= ' 'x8; + $Str .= ' 'x5; + $Str .= ''; + $Str .= ' 'x5; + $Str .= ''; + $Str .= ' 'x5; + $Str .= '
'; return $Str; } @@ -359,29 +381,12 @@ my @OutputOptions = mode => 'excel', show_links => 'no', }, -# { name => 'multi-sheet Excel', -# value => 'multi-sheet excel', -# description => 'Output an Excel file (compatable with Excel 95), '. -# 'with a seperate worksheet for each sequence you have selected '. -# 'the data for each problem part '. -# '(number of tries, status, points awarded) will be listed.', -# mode => 'multi-sheet excel', -# show_links => 'no', -# }, -# { name => 'multi-sheet Excel, by section', -# value => 'multi-sheet excel, by section', -# description => 'Output an Excel file (compatable with Excel 95), '. -# 'with a seperate worksheet for each sequence you have selected '. -# 'the data for each problem part '. -# '(number of tries, status, points awarded) will be listed. '. -# 'There will be one Excel workbook for each section selected.', -# mode => 'multi-sheet excel', -# show_links => 'no', -# }, { name => 'CSV', value => 'csv', description => 'Output a comma seperated values file suitable for '. - 'import into a spreadsheet.', + 'import into a spreadsheet program. Using this method as opposed '. + 'to Excel output allows you to organize your data before importing'. + ' it into a spreadsheet program.', mode => 'csv', show_links => 'no', }, @@ -389,7 +394,7 @@ my @OutputOptions = sub OutputDescriptions { my $Str = ''; - $Str .= "

Output Modes

\n"; + $Str .= "

Output Formats

\n"; $Str .= "
\n"; foreach my $outputmode (@OutputOptions) { $Str .="
".$outputmode->{'name'}."
\n"; @@ -438,61 +443,76 @@ sub CreateAndParseOutputSelector { ## Data selector stuff ## my @OutputDataOptions = - ( { name =>'Tries', - base =>'tries', - value => 'tries', - shortdesc => 'Number of Tries before success on each Problem Part', - longdesc =>'The number of tries before success on each problem part.', - }, - { name =>'Parts Correct', - base =>'tries', - value => 'parts correct', - shortdesc => 'Number of Problem Parts completed successfully.', - longdesc => 'The Number of Problem Parts completed successfully.', - }, - { name =>'Parts Correct & Maximums', - base =>'tries', - value => 'parts correct total', - shortdesc => 'Number of Problem Parts completed successfully.', - longdesc => 'The Number of Problem Parts completed successfully and '. - 'the maximum possible for each student', - }, - { name => 'Scores', - base => 'scores', - value => 'scores', - shortdesc => 'Score on each Problem Part', - longdesc =>'The students score on each problem part, computed as'. - 'the part weight * part awarded', - }, - { name => 'Scores Sum', - base => 'scores', - value => 'sum only', - shortdesc => 'Sum of Scores on each Problem Part', - longdesc =>'The total of the scores of the student on each problem'. - ' part in the sequences or folders selected.', - }, - { name => 'Scores Sum & Maximums', - base => 'scores', - value => 'sum and total', - shortdesc => 'Total Score and Maximum Possible for each '. - 'Sequence or Folder', - longdesc => 'The total of the scores of the student on each problem'. - ' and the maximum possible for that student on each Sequence or '. - ' Folder.', - }, - { name => 'Summary Table (Scores)', - base => 'scores', - value => 'final table scores', - shortdesc => 'Summary of Scores', - longdesc => '', - }, - { name => 'Summary Table (Parts)', - base => 'tries', - value => 'final table parts', - shortdesc => 'Summary of Parts Correct', - longdesc => '', - } - ); + ( + { name => 'Scores', + base => 'scores', + value => 'scores', + shortdesc => 'Score on each Problem Part', + longdesc =>'The students score on each problem part, computed as'. + 'the part weight * part awarded', + }, + { name => 'Scores Sum', + base => 'scores', + value => 'sum only', + shortdesc => 'Sum of Scores on each Problem Part', + longdesc =>'The total of the scores of the student on each problem'. + ' part in the sequences or folders selected.', + }, + { name => 'Scores Sum & Maximums', + base => 'scores', + value => 'sum and total', + shortdesc => 'Total Score and Maximum Possible for each '. + 'Sequence or Folder', + longdesc => 'The score of each student as well as the '. + ' maximum possible on each Sequence or Folder.', + }, + { name => 'Scores Summary Table Only', + base => 'scores', + value => 'final table scores', + shortdesc => 'Summary of Scores', + longdesc => 'The average score on each sequence or folder for the '. + 'selected students.', + }, + { name =>'Tries', + base =>'tries', + value => 'tries', + shortdesc => 'Number of Tries before success on each Problem Part', + longdesc =>'The number of tries before success on each problem part.', + }, + { name =>'Parts Correct', + base =>'tries', + value => 'parts correct', + shortdesc => 'Number of Problem Parts completed successfully.', + longdesc => 'The Number of Problem Parts completed successfully'. + ' on each sequence or folder.', + }, + { name =>'Parts Correct & Maximums', + base =>'tries', + value => 'parts correct total', + shortdesc => 'Number of Problem Parts completed successfully.', + longdesc => 'The Number of Problem Parts completed successfully and '. + 'the maximum possible for each student', + }, + { name => 'Parts Summary Table Only', + base => 'tries', + value => 'final table parts', + shortdesc => 'Summary of Parts Correct', + longdesc => 'A summary table of the average number of problem parts '. + 'students were able to get correct on each sequence.', + }, + ); + +sub HTMLifyOutputDataDescriptions { + my $Str = ''; + $Str .= "

Output Data

\n"; + $Str .= "
\n"; + foreach my $option (@OutputDataOptions) { + $Str .= '
'.$option->{'name'}.'
'; + $Str .= '
'.$option->{'longdesc'}.'
'."\n"; + } + $Str .= "
\n"; + return $Str; +} sub CreateAndParseOutputDataSelector { my $Str = ''; @@ -786,78 +806,6 @@ sub SingleStudentTotal { =pod -=head2 Multi-Sheet EXCEL subroutines - -=item &multi_sheet_excel_initialize($r) - -=item &multi_sheet_excel_outputstudent($r,$student) - -=item &multi_sheet_excel_finish($r) - -=cut - -####################################################### -####################################################### -{ - -sub multi_sheet_excel_initialize { - my ($r)=@_; - $r->print("

Not yet implemented

"); - # - # Estimate the size of the file. We would like to have < 5 megs of data. - my $max_size = 5000000; - my $num_students = scalar(@Apache::lonstatistics::Students); - my $num_sequences = 0; - my $num_data_per_part = 2; # 'status' and 'numtries' - my $fields_per_student = scalar(&get_student_fields_to_show()); - my $bytes_per_field = 20; # Back of the envelope calculation - foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { - $num_sequences++ if ($seq->{'num_assess'} > 0); - $fields_per_student += $num_data_per_part * $seq->{'num_assess_parts'}; - } - my $size_estimate = $fields_per_student*$num_students*$bytes_per_field; - # - # Compute number of workbooks - my $num_workbooks = 1; - if ($size_estimate > $max_size) { # try to stay under 5 megs - $num_workbooks += int($size_estimate / $max_size); - } -# if ($data eq ) { -# if (@Apache::lonstatistics::SelectedSections > 1 && -# $Apache::lonstatistics::SelectedSections[0] ne 'all') { -# $num_workbooks = scalar(@Apache::lonstatistics::SelectedSections); -# } else { -# # @Apache::lonstatistics::Sections contains 'all' as well. -# $num_workbooks = scalar(@Apache::lonstatistics::Sections) - 1; -# } -# } - - $r->print("Maximum allowed size: ".$max_size." bytes
"); - $r->print("Number of students: ".$num_students."
"); - $r->print("Number of fields per student: ".$fields_per_student."
"); - $r->print("Total number of fields: ".($fields_per_student*$num_students). - "
"); - $r->print("Bytes per field: ".$bytes_per_field." (estimated)"."
"); - $r->print("Estimated size: ".$size_estimate." bytes
"); - $r->print("Number of workbooks: ".$num_workbooks."
"); - $r->rflush(); - return; -} - -sub multi_sheet_excel_outputstudent { - my ($r,$student) = @_; -} - -sub multi_sheet_excel_finish { - my ($r) = @_; -} - -} -####################################################### -####################################################### - -=pod - =head2 EXCEL subroutines =item &excel_initialize($r) @@ -1109,6 +1057,8 @@ END ($r,'Excel File Compilation Status', 'Excel File Compilation Progress', $studentcount); # + &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, + 'Processing first student'); return; } @@ -1569,6 +1519,11 @@ sub StudentPerformanceOnSequence { } } # + if (! defined($partscore)) { + $partscore = $symbol; + } + push (@ScoreData,$partscore); + # if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { $symbol = ''.$symbol.''; } - if (! defined($partscore)) { - $partscore = $symbol; - } - push (@ScoreData,$partscore); + $Str .= $symbol; } - $Str .= $symbol; } return ($Str,$performance_length,$score,$max,\@ScoreData); }