| Select Map | '."\n"; - $Ptr .= ''; - $Ptr .= &Apache::lonhtmlcommon::MapOptions(\%cache, 'ProblemStatistics', - 'Statistics'); - $Ptr .= ' |
| Sorting Type: | '."\n"; - $Ptr .= ''."\n"; - $Ptr .= &Apache::lonhtmlcommon::AscendOrderOptions( - $cache{'ProblemStatisticsAscend'}, - 'ProblemStatistics', - 'Statistics'); - $Ptr .= ' |
| Select Sections'; - $Ptr .= ' | '."\n"; - $Ptr .= ''."\n"; - my @sections = split(':',$cache{'sectionList'}); - my @sectionsSelected = split(':',$cache{'sectionsSelected'}); - $Ptr .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections, - \@sectionsSelected, - 'Statistics'); - $Ptr .= ' |
". + $ENV{'course.'.$ENV{'request.course.id'}.'.description'}. + "
\n"); + $r->print("".localtime(time)."
"); + $r->rflush(); + if ($show eq 'grouped') { + &output_html_grouped_by_sequence($r); + } elsif ($show eq 'ungrouped') { + &output_html_ungrouped($r); + } + } elsif ($output_mode eq 'excel') { + $r->print("Preparing Excel Spreadsheet
"); + &output_excel($r); + } else { + $r->print("Not implemented
"); } - $r->print($Ptr); - $r->rflush(); - untie(%cache); + return; +} - my ($result, $orderedProblems) = - &InitializeProblemStatistics($cacheDB, $students, $courseID, $c, $r); - if($result ne 'OK') { - return; - } +############################################### +############################################### - unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { - $r->print('Unable to tie database.6'); - return; - } - &BuildStatisticsTable(\%cache, $cache{'DisplayFormat'}, - $cache{'SortProblems'}, $orderedProblems, - \@Header, $r, $color); - untie(%cache); +=pod +=item &output_html_grouped_by_sequence() + +Presents the statistics data as an html table organized by the order +the assessments appear in the course. + +=cut + +############################################### +############################################### +sub output_html_grouped_by_sequence { + my ($r) = @_; + my $problem_num = 0; + #$r->print(&ProblemStatisticsLegend()); + foreach my $sequence (&Apache::lonstatistics::Sequences_with_Assess()) { + next if ($sequence->{'num_assess'}<1); + $r->print("".$sequence->{'title'}."
"); + $r->print('| '."\n");
+ $r->print(' |
| '."\n");
+ $r->print(' |
| '."\n");
+ $r->print(' |
).
- ')
');
- $r->print(''); - } - if($sortProblems eq 'Sort Within Sequence') { - $r->print(''.$cache->{$sequence.':title'}.''); + } else { + if ($Sections[0] eq 'all') { + $sectionstring = "All sections"; + } else { + $sectionstring = "Section ".$Sections[0]; + } + } + $excel_sheet->write($rows_output,$cols_output++,$sectionstring); + $cols_output += scalar(@Sections); + # + # Put the date in there too + $excel_sheet->write($rows_output,$cols_output++, + 'Compiled on '.localtime(time)); + # + $rows_output++; + $cols_output=0; + # + # Add the headers + foreach my $field (@Fields) { + next if ($field->{'name'} eq 'problem_num'); + $excel_sheet->write($rows_output,$cols_output++,$field->{'title'}); + } + $rows_output++; + # + # Write the data + my $problem_num=0; + foreach my $sequence (&Apache::lonstatistics::Sequences_with_Assess()) { + next if ($sequence->{'num_assess'}<1); + foreach my $resource (@{$sequence->{'contents'}}) { + next if ($resource->{'type'} ne 'assessment'); + foreach my $part (@{$resource->{'parts'}}) { + $cols_output=0; + $problem_num++; + my $data = &get_statistics($sequence,$resource,$part, + $problem_num); + # + if (!defined($part) || $part eq '') { + $part = ' '; } - $r->print('
| '."\n");
- $r->print(' |
'); } - + # + # Write the excel file + $excel_workbook->close(); + # Tell the user where to get their excel file + $r->print('
'. + 'Your Excel spreadsheet.'."\n"); + $r->rflush(); return; } -sub TableRow { - my ($displayFormat,$Str,$RealIdx,$r,$color)=@_; - my($ref,$title,$source,$StdNo,$TotalTries,$MxTries,$Avg,$YES,$Override, - $Wrng,$DoD,$SD,$Sk,$_D1,$_D2)=split(/\&/,$Str); - my $Ptr; - if($displayFormat eq 'Display CSV Format') { - $Ptr='"'.$RealIdx.'",'."\n". - '"'.$title.'",'."\n". - '"'.$source.'",'."\n". - '"'.$StdNo.'",'."\n". - '"'.$TotalTries.'",'."\n". - '"'.$MxTries.'",'."\n". - '"'.$Avg.'",'."\n". - '"'.$YES.'",'."\n". - '"'.$Override.'",'."\n". - '"'.$Wrng.'",'."\n". - '"'.$DoD.'",'."\n". - '"'.$SD.'",'."\n". - '"'.$Sk.'",'."\n". - '"'.$_D1.'",'."\n". - '"'.$_D2.'"'."\n". - "
\n"; +############################################### +############################################### - $r->print("\n".$Ptr); - } else { - $Ptr='
".&DrawGraph(\@Data,$title,'Problem Number',$yaxis, + $Max)."
\n"); + # + # Print out the data + $ENV{'form.sortby'} = 'Contents'; +# &output_html_ungrouped($r); + return; } +############################################### +############################################### + +=pod + +=item &DrawGraph() + +=cut + +############################################### +############################################### +sub DrawGraph { + my ($values,$title,$xaxis,$yaxis,$Max)=@_; + $title = '' if (! defined($title)); + $xaxis = '' if (! defined($xaxis)); + $yaxis = '' if (! defined($yaxis)); + # + my $sendValues = join(',', @$values); + my $sendCount = scalar(@$values); + $Max =1 if ($Max < 1); + if ( int($Max) < $Max ) { + $Max++; + $Max = int($Max); + } + my @GData = ($title,$xaxis,$yaxis,$Max,$sendCount,$sendValues); + return ').')
';
+}
+
+sub get_statistics {
+ my ($sequence,$resource,$part,$problem_num) = @_;
+ #
+ my $symb = $resource->{'symb'};
+ my $courseid = $ENV{'request.course.id'};
+ #
+ my $students = \@Apache::lonstatistics::Students;
+ if ($Apache::lonstatistics::SelectedSections[0] eq 'all') {
+ $students = undef;
+ }
+ my $data = &Apache::loncoursedata::get_problem_statistics
+ ($students,$symb,$part,$courseid);
+ $data->{'part'} = $part;
+ $data->{'problem_num'} = $problem_num;
+ $data->{'container'} = $sequence->{'title'};
+ $data->{'title'} = $resource->{'title'};
+ $data->{'title.link'} = $resource->{'src'};
+ #
+ return $data;
+}
+
+###############################################
+###############################################
+
+=pod
+
+=item &ProblemStatisticsLegend()
+
+=cut
+
+###############################################
+###############################################
sub ProblemStatisticsLegend {
my $Ptr = '';
$Ptr = '| Total number of tries for solving the problem.'; $Ptr .= ' | |
| '; - $Ptr .= 'Mod | '; + $Ptr .= 'Max Tries'; $Ptr .= 'Largest number of tries for solving the problem by a student.'; $Ptr .= ' |
| '; $Ptr .= 'Mean | '; @@ -507,8 +945,8 @@ sub ProblemStatisticsLegend { $Ptr .= 'Dis.F.'; $Ptr .= 'Discrimination Factor: A Standard for evaluating the ';
$Ptr .= 'problem according to a Criterion '; - $Ptr .= '[Applied Criterion in %27 Upper Students - '; - $Ptr .= 'Applied the same Criterion in %27 Lower Students] '; + $Ptr .= '[Criterion to group students into %27 Upper Students - '; + $Ptr .= 'and %27 Lower Students] '; $Ptr .= '1st Criterion for Sorting the Students: '; $Ptr .= 'Sum of Partial Credit Awarded / Total Number of Tries '; $Ptr .= '2nd Criterion for Sorting the Students: '; @@ -517,308 +955,9 @@ sub ProblemStatisticsLegend { $Ptr .= ' |
| Disc. | '; $Ptr .= 'Number of Students had at least one discussion.'; $Ptr .= ' |