'."\n");
+ $r->print(''."\n");
+ $r->print(&CreateProblemStatisticsTableHeading($headings, $r));
+ } else {
+ $r->print('
');
+ }
- $TempCache{'CacheTable:'.($p_count-1)}=$join;
+ my $count = 1;
+ foreach(@$orderedProblems) {
+ my ($sequence,$problem,$part)=split(':', $_);
+# if($cache->{'ProblemStatisticsMaps'} ne 'All Maps' &&
+# $cache->{'ProblemStatisticsMaps'} ne $cache->{$sequence.':title'}) {
+# next;
+# }
+
+
+ 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
#6666666
# $r->print('
'.$out.'&'.$DoD);
@@ -557,104 +210,35 @@ sub BuildStatisticsTable {
#6666666
#check with Gerd
- $urlres=~/^(\w+)\/(\w+)/;
- if ($StdNo) {
- &Apache::lonnet::put('nohist_resevaldata',\%storestats,
- $1,$2);
- }
+# $urlres=~/^(\w+)\/(\w+)/;
+# if ($StdNo) {
+# &Apache::lonnet::put('nohist_resevaldata',\%storestats,
+# $1,$2);
+# }
#-------------------------------- Row of statistical table
- &TableRow($cache,$join,$cIdx,($p_count-1),$r,$color,
- \%TempCache);
- }
- $TempCache{'ProblemCount'}=$p_count;
- &CloseTable($cache,$r);
+ &TableRow($displayFormat,$tableData,$count,$r,$color);
+ $count++;
+ }
+ if($cache->{'DisplayFormat'} ne 'Display CSV Format') {
+ $r->print(' '."\n");
}
-### &Close_PrgWin();
+ $r->print(' |