version 1.85, 2003/10/08 15:32:00
|
version 1.87, 2003/10/21 20:24:52
|
Line 898 sub Gather_Student_Data {
|
Line 898 sub Gather_Student_Data {
|
($student->{'username'},$student->{'domain'}, |
($student->{'username'},$student->{'domain'}, |
$ENV{'request.course.id'}); |
$ENV{'request.course.id'}); |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
'last student'); |
&mt('last student')); |
} |
} |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
$r->rflush(); |
$r->rflush(); |
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"; |
# |
# |