loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

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";
#	#