'."\n");
- $r->print(''."\n");
- $r->print(&CreateProblemStatisticsTableHeading($headings, $r));
- } else {
- $r->print('
');
+###############################################
+###############################################
+##
+## Misc HTML output routines
+##
+###############################################
+###############################################
+sub statistics_html_table_data {
+ my ($data,$options) = @_;
+ my $row = '';
+ foreach my $field (@Fields) {
+ next if ($options =~ /no $field->{'name'}/);
+ next if ($field->{'selected'} ne 'yes');
+ $row .= '{'align'})) {
+ $row .= ' align="'.$field->{'align'}.'"';
+ }
+ $row .= '>';
+ if (exists($field->{'special'}) && $field->{'special'} eq 'link') {
+ $row .= '';
+ }
+ if (exists($field->{'format'}) && $data->{$field->{'name'}} !~ /[A-Z]/i) {
+ $row .= sprintf($field->{'format'},$data->{$field->{'name'}});
+ } else {
+ $row .= $data->{$field->{'name'}};
+ }
+ if (exists($field->{'special'}) && $field->{'special'} eq 'link') {
+ $row.= '';
+ }
+ $row .= ' | ';
}
+ return $row;
+}
- my $count = 1;
- foreach(@$orderedProblems) {
- my ($sequence,$problem,$part)=split(':', $_);
- if($cache->{'StatisticsMaps'} ne 'All Maps' &&
- $cache->{'StatisticsMaps'} ne $cache->{$sequence.':title'}) {
- next;
+sub statistics_table_header {
+ my ($options) = @_;
+ my $header_row;
+ foreach my $field (@Fields) {
+ next if ($options =~ /no $field->{'name'}/);
+ next if ($field->{'selected'} ne 'yes');
+ $header_row .= '';
+ if (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;
+}
- my $ref = ''.$cache->{$problem.':title'}.'';
-# my $ref = $cache->{$problem.':title'};
- my $title = $cache->{$problem.':title'};
- my $source = 'source';
- my $tableData = join('&', $ref, $title, $source,
- $cache->{$_.':studentCount'},
- $cache->{$_.':totalTries'},
- $cache->{$_.':maxTries'},
- sprintf("%.2f", $cache->{$_.':mean'}),
- $cache->{$_.':correct'},
- $cache->{$_.':correctByOverride'},
- sprintf("%.1f", $cache->{$_.':percentWrong'}),
- sprintf("%.2f", $cache->{$_.':degreeOfDifficulty'}),
- sprintf("%.1f", $cache->{$_.':standardDeviation'}),
- sprintf("%.1f", $cache->{$_.':skewness'}),
- sprintf("%.2f", $cache->{$_.':discriminationFactor1'}),
- sprintf("%.2f", $cache->{$_.':discriminationFactor2'}),
- 0); # 0 is for discussion, need to figure out
-
- &TableRow($displayFormat,$tableData,$count,$r,$color);
- $count++;
- }
- if($cache->{'DisplayFormat'} ne 'Display CSV Format') {
- $r->print(' '."\n");
- }
- $r->print(' |
).')
');
- $r->print('