'."\n");
+ $r->print(''."\n");
+ $r->print(&CreateProblemStatisticsTableHeading($headings, $r));
+ } else {
+ $r->print('
');
+ }
- $TempCache{'CacheTable:'.($p_count-1)}=$join;
+ my $count = 1;
+ foreach(@$problems) {
+ my ($sequence,$problem,$part)=split(':', $_);
+# my $problemRef = ''.$cache->{$problem.':title'}.'';
+
+ my $ref = $cache->{$problem.':title'};
+ my $title = $cache->{$problem.':title'};
+ my $source = 'source';
+ my $tableData = join('&', $ref, $title, $source,
+ $data->{$_.':studentCount'},
+ $data->{$_.':totalTries'},
+ $data->{$_.':maxTries'},
+ sprintf("%.2f", $data->{$_.':mean'}),
+ $data->{$_.':correct'},
+ $data->{$_.':correctByOverride'},
+ sprintf("%.1f", $data->{$_.':percentWrong'}),
+ sprintf("%.2f", $data->{$_.':degreeOfDifficulty'}),
+ sprintf("%.1f", $data->{$_.':standardDeviation'}),
+ sprintf("%.1f", $data->{$_.':skewness'}),
+ sprintf("%.2f", $data->{$_.':discriminationFactor1'}),
+ sprintf("%.2f", $data->{$_.':discriminationFactor2'}),
+ 0); # 0 is for discussion, need to figure out
+# $TempCache{'CacheTable:'.$_}=$join;
#6666666
# $r->print('
'.$out.'&'.$DoD);
@@ -557,26 +198,28 @@ 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);
+# $GraphDat->{'GraphGif:'.($count-1)}=$DoD.':'.$Wrng;
+ $count++;
+ }
+# $TempCache{'ProblemCount'}=$count;
+ if($cache->{'DisplayFormat'} ne 'Display CSV Format') {
+ $r->print(' '."\n");
}
-### &Close_PrgWin();
+ $r->print(' |