version 1.74, 2004/03/29 15:58:33
|
version 1.75, 2004/03/29 18:22:28
|
Line 310 sub BuildProblemStatisticsPage {
|
Line 310 sub BuildProblemStatisticsPage {
|
# This probably does not need to be done each time we are called, but |
# This probably does not need to be done each time we are called, but |
# it does not slow things down noticably. |
# it does not slow things down noticably. |
&Apache::loncoursedata::populate_weight_table(); |
&Apache::loncoursedata::populate_weight_table(); |
|
# |
if (exists($ENV{'form.Excel'})) { |
if (exists($ENV{'form.Excel'})) { |
&Excel_output($r); |
&Excel_output($r); |
} else { |
} else { |
|
my $count = 0; |
|
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
|
$count += $seq->{'num_assess'}; |
|
} |
|
if ($count > 10) { |
|
$r->print('<h2>'. |
|
&mt('Compiling statistics for [_1] problems',$count). |
|
'</h2>'); |
|
if ($count > 30) { |
|
$r->print('<h3>'.&mt('This will take some time.').'</h3>'); |
|
} |
|
$r->rflush(); |
|
} |
|
# |
my $sortby = $ENV{'form.sortby'}; |
my $sortby = $ENV{'form.sortby'}; |
$sortby = 'container' if (! defined($sortby) || $sortby =~ /^\s*$/); |
$sortby = 'container' if (! defined($sortby) || $sortby =~ /^\s*$/); |
my $plot = $ENV{'form.plot'}; |
my $plot = $ENV{'form.plot'}; |
&Apache::lonnet::logthis('form.plot = '.$plot); |
if ($plot eq '' || $plot eq 'none') { |
|
undef($plot); |
|
} |
if ($sortby eq 'container' && ! defined($plot)) { |
if ($sortby eq 'container' && ! defined($plot)) { |
&output_html_by_sequence($r); |
&output_html_by_sequence($r); |
} else { |
} else { |
if (defined($plot)) { |
if (defined($plot)) { |
&Apache::lonnet::logthis('calling plot routine'); |
|
&make_plot($r,$plot); |
&make_plot($r,$plot); |
} |
} |
&output_html_stats($r); |
&output_html_stats($r); |
Line 385 sub output_html_stats {
|
Line 401 sub output_html_stats {
|
return; |
return; |
} |
} |
|
|
|
|
sub html_preamble { |
sub html_preamble { |
my $Str=''; |
my $Str=''; |
$Str .= "<h2>". |
$Str .= "<h2>". |