version 1.86, 2003/10/15 18:01:10
|
version 1.87, 2003/10/21 20:24:52
|
Line 1056 sub CreateMainMenu {
|
Line 1056 sub CreateMainMenu {
|
# 'percentage' => 'Correct-problems Plot', |
# 'percentage' => 'Correct-problems Plot', |
# 'activitylog' => 'Activity Log', |
# 'activitylog' => 'Activity Log', |
); |
); |
|
|
# |
# |
# Create the menu |
# Create the menu |
my $Str; |
my $Str; |
$Str = "<h2>".&mt('Statistics and Problem Analysis')."</h2>\n"; |
$Str .= '<h1>'.&mt('Please select a report to generate').'</h1>'; |
$Str .= &mt('Please select a report to generate.'); |
|
$Str .= "<dl>\n"; |
|
foreach my $reportdata (@reports) { |
foreach my $reportdata (@reports) { |
$Str .=' <dt><a href="/adm/statistics?reportSelected='. |
$Str .=' <h3><a href="/adm/statistics?reportSelected='. |
$reportdata->{'internal_name'}.'" >'. |
$reportdata->{'internal_name'}.'" >'. |
$reportdata->{'name'}."</a></dt>\n"; |
$reportdata->{'name'}."</a></h3>\n"; |
$Str .= ' <dd>'.$reportdata->{'short_description'}. |
$Str .= ' '.(' 'x8).$reportdata->{'short_description'}. |
"</dd>\n"; |
"\n"; |
} |
} |
$Str .="</dl>\n"; |
$Str .="</dl>\n"; |
# |
# |