'."\n");
$r->print(''."\n");
- $r->print('| '.
- join(" | ",@Header)." |
|---|
\n");
+ $r->print('');
+ my $Str = &statistics_table_header('no container no plots');
+ $r->print(' '.$Str." \n");
foreach my $resource (@{$sequence->{'contents'}}) {
next if ($resource->{'type'} ne 'assessment');
foreach my $part (@{$resource->{'parts'}}) {
$problem_num++;
- my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,
- $SKEW) = &Apache::loncoursedata::get_problem_statistics
- (undef,$resource->{'symb'},$part,
- $ENV{'request.course.id'});
- #
- $show_part = 1 if ($part ne '0');
- $part = ' ' if ($part == 0);
- #
- my $wrongpercent = 0;
- if (defined($num) && $num > 0) {
- $wrongpercent=int(10*100*($num-$Solved+$solved)/$num)/10;
- }
+ my $data = &get_statistics($sequence,$resource,$part,
+ $problem_num);
my $option = '';
- $option .= 'no part' if (! $show_part);
- $r->print(''.&statistics_html_table_data
- ($resource,$part,$num,$tries,$mod,$mean,$Solved,
- $solved,$wrongpercent,$DegOfDiff,$STD,$SKEW,
- $option).
+ $r->print(' '.&statistics_html_table_data($data,
+ 'no container').
" \n");
}
}
@@ -302,44 +347,43 @@ sub output_html_grouped_by_sequence {
###############################################
###############################################
+=pod
+
+=item &output_html_ungrouped()
+
+Presents the statistics data in a single html table which can be sorted by
+different columns.
+
+=cut
+
###############################################
###############################################
sub output_html_ungrouped {
my ($r,$option) = @_;
#
+ if (exists($ENV{'form.plot'}) && $ENV{'form.plot'} ne '') {
+ &plot_statistics($r,$ENV{'form.plot'});
+ }
+ #
my $problem_num = 0;
my $show_container = 0;
my $show_part = 0;
#$r->print(&ProblemStatisticsLegend());
- my @Header = ("Title","Part","#Stdnts","Tries","Mod",
- "Mean","#YES","#yes","%Wrng","DoDiff",
- "S.D.","Skew");#,"D.F.1st","D.F.2nd");
- #
my $sortby = undef;
- foreach (@Header) {
- if ($ENV{'form.sortby'} eq $_) {
- $sortby = $_;
+ foreach my $field (@Fields) {
+ if ($ENV{'form.sortby'} eq $field->{'name'}) {
+ $sortby = $field->{'name'};
}
}
- if (! defined($sortby) || $sortby eq '') {
- $sortby = 'Container';
+ if (! defined($sortby) || $sortby eq '' || $sortby eq 'problem_num') {
+ $sortby = 'container';
}
# If there is more than one sequence, list their titles
my @Sequences = &Apache::lonstatistics::Sequences_with_Assess();
- if (@Sequences > 1) {
- unshift(@Header,"Container");
- $show_container = 1;
- }
- #
- # If the option for showing the problem number is needed, push that
- # on the list too
- if (defined($option) && $option =~ /show probnum/) {
- unshift(@Header,"P#");
+ if (@Sequences < 1) {
+ $option .= ' no container';
}
#
- $r->print(''."\n");
- $r->rflush();
- #
# Compile the data
my @Statsarray;
foreach my $sequence (@Sequences) {
@@ -348,59 +392,18 @@ sub output_html_ungrouped {
next if ($resource->{'type'} ne 'assessment');
foreach my $part (@{$resource->{'parts'}}) {
$problem_num++;
- my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,
- $SKEW) = &Apache::loncoursedata::get_problem_statistics
- (undef,$resource->{'symb'},$part,
- $ENV{'request.course.id'});
- #
+ my $data = &get_statistics($sequence,$resource,$part,
+ $problem_num);
$show_part = 1 if ($part ne '0');
- $part = ' ' if ($part == 0);
#
- my $wrongpercent = 0;
- if (defined($num) && $num > 0) {
- $wrongpercent=int(10*100*($num-$Solved+$solved)/$num)/10;
- }
- push (@Statsarray,
- { 'sequence' => $sequence,
- 'resource' => $resource,
- 'Title' => $resource->{'title'},
- 'Part' => $part,
- '#Stdnts' => $num,
- 'Tries' => $tries,
- 'Mod' => $mod,
- 'Mean' => $mean,
- '#YES' => $Solved,
- '#yes' => $solved,
- '%Wrng' => $wrongpercent,
- 'DoDiff' => $DegOfDiff,
- 'S.D.' => $STD,
- 'Skew' => $SKEW,
- 'problem_num' => $problem_num,
- });
+ push (@Statsarray,$data);
}
}
}
#
- # Table Headers
- $r->print(''."\n");
- my $Str = '';
- foreach (@Header) {
- next if ($_ eq 'Part' && !$show_part);
- # Do not allow sorting on some fields
- if ($_ eq $sortby || /^(Part|P\#)$/) {
- $Str .= '| '.$_.' | ';
- } else {
- $Str .= ''.
- ''.
- $_.' | ';
- }
- }
- $r->print(''.$Str." \n");
- #
# Sort the data
my @OutputOrder;
- if ($sortby eq 'Container') {
+ if ($sortby eq 'container') {
@OutputOrder = @Statsarray;
} else {
# $sortby is already defined, so we can charge ahead
@@ -408,8 +411,8 @@ sub output_html_ungrouped {
# Alpha comparison
@OutputOrder = sort {
lc($a->{$sortby}) cmp lc($b->{$sortby}) ||
- lc($a->{'Title'}) cmp lc($b->{'Title'}) ||
- lc($a->{'Part'}) cmp lc($b->{'Part'});
+ lc($a->{'title'}) cmp lc($b->{'title'}) ||
+ lc($a->{'part'}) cmp lc($b->{'part'});
} @Statsarray;
} else {
# Numerical comparison
@@ -429,31 +432,35 @@ sub output_html_ungrouped {
}
if ($retvalue eq '0') {
$retvalue = $b->{$sortby} <=> $a->{$sortby} ||
- lc($a->{'Title'}) <=> lc($b->{'Title'}) ||
- lc($a->{'Part'}) <=> lc($b->{'Part'});
+ lc($a->{'title'}) <=> lc($b->{'title'}) ||
+ lc($a->{'part'}) <=> lc($b->{'part'});
}
$retvalue;
} @Statsarray;
}
}
- $option .= ',no part' if (! $show_part);
- foreach my $row (@OutputOrder) {
- $r->print('');
- if (defined($option) && $option =~ /show probnum/) {
- $r->print('| '.$row->{'problem_num'}.' | ');
- }
- if ($show_container) {
- $r->print(''
- .$row->{'sequence'}->{'title'}.' | ');
- }
- $r->print(&statistics_html_table_data
- ($row->{'resource'},$row->{'Part'},$row->{'#Stdnts'},
- $row->{'Tries'},$row->{'Mod'},$row->{'Mean'},
- $row->{'#YES'},$row->{'#yes'},$row->{"\%Wrng"},
- $row->{'DoDiff'},$row->{'S.D.'},$row->{'Skew'},
- $option));
-
- $r->print(" \n");
+ $option .= 'no part' if (! $show_part);
+ my $num_output = 0;
+ #
+ # output the headers
+ $r->print(''."\n");
+ $r->print(''."\n");
+ my $Str = &statistics_table_header($option.' sortable');
+ $r->print(''.$Str." \n");
+ #
+ foreach my $rowdata (@OutputOrder) {
+ $num_output++;
+ if ($num_output % 25 == 0) {
+ $r->print(" \n |
\n");
+ #
+ $r->print(''."\n");
+ $r->print(''."\n");
+ my $Str = &statistics_table_header($option.' sortable');
+ $r->print(''.$Str." \n");
+ $r->rflush();
+ }
+ $r->print(''.&statistics_html_table_data($rowdata,$option).
+ " \n");
}
$r->print(" \n");
$r->print(" |
\n");
@@ -462,10 +469,17 @@ sub output_html_ungrouped {
return;
}
-
###############################################
###############################################
+=pod
+
+=item &output_excel()
+
+Presents the statistical data in an Excel 95 compatable spreadsheet file.
+
+=cut
+
###############################################
###############################################
sub output_excel {
@@ -486,9 +500,9 @@ sub output_excel {
# Check for errors
if (! defined($excel_workbook)) {
$r->log_error("Error creating excel spreadsheet $filename: $!");
- $r->print("Problems creating new Excel file. ".
+ $r->print(&mt("Problems creating new Excel file. ".
"This error has been logged. ".
- "Please alert your LON-CAPA administrator");
+ "Please alert your LON-CAPA administrator."));
return ;
}
#
@@ -537,38 +551,46 @@ sub output_excel {
$rows_output++;
$cols_output=0;
#
- # Add the headers
- my @Header = ("Container","Title","Part","#Stdnts","Tries","Mod",
- "Mean","#YES","#yes","%Wrng","DoDiff",
- "S.D.","Skew.");#,"D.F.1st","D.F.2nd");
- foreach (@Header) {
- $excel_sheet->write($rows_output,$cols_output++,$_);
+ # Long Headersheaders
+ foreach my $field (@Fields) {
+ next if ($field->{'name'} eq 'problem_num');
+ if (exists($field->{'long_title'})) {
+ $excel_sheet->write($rows_output,$cols_output++,
+ $field->{'long_title'});
+ } else {
+ $excel_sheet->write($rows_output,$cols_output++,'');
+ }
+ }
+ $rows_output++;
+ $cols_output=0;
+ # Brief headers
+ foreach my $field (@Fields) {
+ next if ($field->{'name'} eq 'problem_num');
+ # Use english for excel as I am not sure how well excel handles
+ # other character sets....
+ $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;
- my ($num,$tries,$mod,$mean,$Solved,$solved,$DegOfDiff,$STD,
- $SKEW) = &Apache::loncoursedata::get_problem_statistics
- (undef,$resource->{'symb'},$part,
- $ENV{'request.course.id'});
+ $problem_num++;
+ my $data = &get_statistics($sequence,$resource,$part,
+ $problem_num);
#
if (!defined($part) || $part eq '') {
$part = ' ';
}
- my $wrongpercent = 0;
- if (defined($num) && $num > 0) {
- $wrongpercent=int(10*100*($num-$Solved+$solved)/$num)/10;
- }
- foreach ($sequence->{'title'},$resource->{'title'},$part,
- $num,$tries,$mod,$mean,$Solved,$solved,$wrongpercent,
- $DegOfDiff,$STD,$SKEW) {
- $excel_sheet->write($rows_output,$cols_output++,$_);
+ foreach my $field (@Fields) {
+ next if ($field->{'name'} eq 'problem_num');
+ $excel_sheet->write($rows_output,$cols_output++,
+ $data->{$field->{'name'}});
}
$rows_output++;
}
@@ -579,7 +601,8 @@ sub output_excel {
$excel_workbook->close();
# Tell the user where to get their excel file
$r->print('
'.
- 'Your Excel spreadsheet.'."\n");
+ ''.
+ &mt('Your Excel Spreadsheet').''."\n");
$r->rflush();
return;
}
@@ -587,98 +610,124 @@ sub output_excel {
###############################################
###############################################
+=pod
+
+=item &statistics_html_table_data()
+
+Help function used to format the rows for HTML table output.
+
+=cut
+
###############################################
###############################################
sub statistics_html_table_data {
- my ($resource,$part,$num,$tries,$mod,$mean,$Solved,$solved,$wrongpercent,
- $DegOfDiff,$STD,$SKEW,$options) = @_;
+ my ($data,$options) = @_;
my $row = '';
- $row .= ''.
- ''.
- $resource->{'title'}.''.
- ' | ';
- $row .= ''.$part.' | ' if ($options !~ /no part/);
- foreach ($num,$tries) {
- $row .= ''.$_.' | ';
- }
- foreach ($mod,$mean) {
- $row .= ''.
- sprintf("%5.2f",$_).' | ';
- }
- foreach ($Solved,$solved) {
- $row .= ''.$_.' | ';
- }
- foreach ($wrongpercent) {
- $row .= ''.
- sprintf("%5.1f",$_).' | ';
- }
- foreach ($DegOfDiff,$STD,$SKEW) {
- $row .= ''.
- sprintf("%5.2f",$_).' | ';
+ foreach my $field (@Fields) {
+ next if ($options =~ /no $field->{'name'}/);
+ $row .= '{'align'})) {
+ $row .= ' align="'.$field->{'align'}.'"';
+ }
+ $row .= '>';
+ if (exists($field->{'special'}) && $field->{'special'} eq 'link') {
+ $row .= '';
+ }
+ if (exists($field->{'format'})) {
+ $row .= sprintf($field->{'format'},$data->{$field->{'name'}});
+ } else {
+ $row .= $data->{$field->{'name'}};
+ }
+ if (exists($field->{'special'}) && $field->{'special'} eq 'link') {
+ $row.= '';
+ }
+ $row .= ' | ';
}
return $row;
}
+sub statistics_table_header {
+ my ($options) = @_;
+ my $header_row;
+ foreach my $field (@Fields) {
+ next if ($options =~ /no $field->{'name'}/);
+ $header_row .= '';
+ if ($options =~ /sortable/ &&
+ exists($field->{'sortable'}) && $field->{'sortable'} eq 'yes') {
+ $header_row .= '{'name'}."'".
+ ';document.Statistics.submit();">';
+ }
+ $header_row .= &mt($field->{'title'});
+ if ($options =~ /sortable/) {
+ $header_row.= '';
+ }
+ if ($options !~ /no plots/ &&
+ exists($field->{'graphable'}) &&
+ $field->{'graphable'} eq 'yes') {
+ $header_row.=' (';
+ $header_row .= '';
+ $header_row .= &mt('plot').')';
+ }
+ $header_row .= ' | ';
+ }
+ return $header_row;
+}
+
+###############################################
+###############################################
+
+=pod
+
+=item &plot_statistics()
+
+=cut
+
###############################################
###############################################
sub plot_statistics {
my ($r,$datafield) = @_;
my @Data;
#
- my %Fields = ('#Stdnts'=> 0,
- 'Tries' => 1,
- 'Mod' => 2,
- 'Mean' => 3,
- '#YES' => 4,
- '#yes' => 5,
- '%Wrng' => 9,
- 'DoDiff' => 6,
- 'S.D.' => 7,
- 'Skew' => 8,);
- #
- my $field = '%Wrng';
- foreach (keys(%Fields)) {
- $field = $_ if ($datafield eq $_);
+ #
+ my $sortfield = undef;
+ my $title = undef;
+ foreach my $field (@Fields) {
+ if ($datafield eq $field->{'name'} &&
+ exists($field->{'graphable'}) && $field->{'graphable'} eq 'yes') {
+ $sortfield = $field->{'name'};
+ $title = $field->{'long_title'};
+ }
}
- my $fieldindex = $Fields{$field};
+ return if (! defined($sortfield) || $sortfield eq '');
#
my $Max = 0;
+ 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'}}) {
- my @Results = &Apache::loncoursedata::get_problem_statistics
- (undef,$resource->{'symb'},$part,
- $ENV{'request.course.id'});
- my ($num,$Solved,$solved) = @Results[0,4,5];
- my $wrongpercent = 0;
- if (defined($num) && $num > 0) {
- $wrongpercent=int(10*100*($num-$Solved+$solved)/$num)/10;
- }
- push (@Results,$wrongpercent);
- my $data = $Results[$fieldindex];
- $data = 0 if ($data eq 'nan');
- $Max = $data if ($Max<$data);
- push (@Data,$data);
+ my $problem_number++;
+ my $data = &get_statistics($sequence,$resource,$part,
+ $problem_num);
+ my $value = $data->{$sortfield};
+ $Max = $value if ($Max < $value);
+ push (@Data,$value);
}
}
}
#
# Print out plot request
- my $title = 'Percent Wrong';
- if ($field eq 'DoDiff') {
- $title = 'Degree of Difficulty';
- }
- my $yaxis = 'Percent';
- if ($field eq 'DoDiff') {
- $yaxis = '';
- } elsif ($field ne '%Wrng') {
- $yaxis = '';
+ my $yaxis = '';
+ if ($sortfield eq 'per_wrong') {
+ $yaxis = 'Percent';
}
#
# Determine appropriate value for $Max
- if ($field eq 'DoDiff') {
+ if ($sortfield eq 'deg_of_diff') {
if ($Max > 0.5) {
$Max = 1;
} elsif ($Max > 0.2) {
@@ -686,7 +735,7 @@ sub plot_statistics {
} elsif ($Max > 0.1) {
$Max = 0.2;
}
- } elsif ($field eq '%Wrng') {
+ } elsif ($sortfield eq 'per_wrong') {
if ($Max > 50) {
$Max = 100;
} elsif ($Max > 25) {
@@ -702,46 +751,52 @@ sub plot_statistics {
}
}
- $r->print("".&DrawGraph(\@Data,$title,'Problem Number',$yaxis,
- $Max)." \n");
+ $r->print("".&Apache::loncommon::DrawBarGraph($title,
+ 'Problem Number',
+ $yaxis,
+ $Max,
+ undef,
+ \@Data)." \n");
#
# Print out the data
$ENV{'form.sortby'} = 'Contents';
- &output_html_ungrouped($r,'show probnum');
+# &output_html_ungrouped($r);
return;
}
-###############################################
-###############################################
-
-###############################################
-###############################################
-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);
- if ( $Max > 1 ) {
- if ($Max % 10) {
- if ( int($Max) < $Max ) {
- $Max++;
- $Max = int($Max);
- }
- }
- } else {
- $Max = 1;
- }
- 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'}.'?symb='.
+ &Apache::lonnet::escape($resource->{'symb'});
+ #
+ return $data;
}
###############################################
###############################################
+=pod
+
+=item &ProblemStatisticsLegend()
+
+HELP This needs to be localized, or at least generated automatically.
+
+=cut
+
###############################################
###############################################
sub ProblemStatisticsLegend {
@@ -754,7 +809,7 @@ sub ProblemStatisticsLegend {
$Ptr .= 'Tries';
$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 | ';
|
|