". + $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
"); } - &BuildStatisticsTable(\%cache, $cache{'DisplayFormat'}, - $cache{'SortProblems'}, $orderedProblems, - \@Header, $r, $color); - untie(%cache); - return; } -sub BuildGraphicChart { - my ($graph,$cacheDB,$courseDescription,$students,$courseID,$r,$c)=@_; - my %cache; - my $max = 0; - unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { - return 'Unable to tie database.7'; - } +############################################### +############################################### -# my @problems = split(':::', $cache{'problemList'}); - - my $title = ''; - if($graph eq 'DoDiffGraph') { - $title = 'Degree-of-Difficulty'; - } else { - $title = 'Wrong-Percentage'; - } +=pod +=item &output_html_grouped_by_sequence() - # foreach (@problems) { - # my $data = 0; - # if($graph eq 'DoDiffGraph') { - # $data = sprintf("%.2f", $cache{$_.':degreeOfDifficulty'}), - # } else { - # $data = sprintf("%.1f", $cache{$_.':percentWrong'}), - # } - # if($max < $data) { - # $max = $data; - # } - # push(@values, $data); - # } - - - my $count = 1; - my $currentSequence = -1; - my $sortProblems = 'Sort Within Sequence'; - - my ($result, $orderedProblems) = - &InitializeProblemStatistics($cacheDB, $students, $courseID, $c, $r); - if($result ne 'OK') { - return; +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(' |
finish a graph
'); - } - if($sortProblems eq 'Sort Within Sequence') { - $r->print(''.$cache{$sequence.':title'}.''); - } - - my $sendValues = join(',', @values); - my $sendCount = scalar(@values); +=item &output_html_ungrouped() - my @GData = ($courseDescription, 'Problems', - $title, $max, $sendCount, $sendValues); - $r->print(''."\n"); - $r->print('
).')
');
- $r->print('