version 1.104, 2005/04/07 06:56:24
|
version 1.105, 2005/08/26 21:53:23
|
Line 661 Main interface to problem statistics.
|
Line 661 Main interface to problem statistics.
|
my $navmap; |
my $navmap; |
my @sequences; |
my @sequences; |
|
|
|
sub clean_up { |
|
undef($navmap); |
|
undef(@sequences); |
|
} |
|
|
sub BuildProblemStatisticsPage { |
sub BuildProblemStatisticsPage { |
my ($r,$c)=@_; |
my ($r,$c)=@_; |
undef($navmap); |
undef($navmap); |
Line 705 sub BuildProblemStatisticsPage {
|
Line 710 sub BuildProblemStatisticsPage {
|
'for the first analysis. Future analysis this session '. |
'for the first analysis. Future analysis this session '. |
' will not have this delay.'). |
' will not have this delay.'). |
'</p>'); |
'</p>'); |
|
&clean_up(); |
return; |
return; |
} |
} |
$r->rflush(); |
$r->rflush(); |
Line 718 sub BuildProblemStatisticsPage {
|
Line 724 sub BuildProblemStatisticsPage {
|
if (! ref($navmap)) { |
if (! ref($navmap)) { |
$r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'. |
$r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'. |
'<h3>'.$navmap.'</h3>'); |
'<h3>'.$navmap.'</h3>'); |
|
&clean_up(); |
return; |
return; |
} |
} |
if (exists($env{'form.Excel'})) { |
if (exists($env{'form.Excel'})) { |
Line 765 sub BuildProblemStatisticsPage {
|
Line 772 sub BuildProblemStatisticsPage {
|
&output_sequence_statistics($r); |
&output_sequence_statistics($r); |
} |
} |
} |
} |
|
&clean_up(); |
return; |
return; |
} |
} |
|
|