version 1.144, 2008/11/20 14:37:24
|
version 1.148, 2009/12/16 13:00:45
|
Line 400 sub StudentDataSelect {
|
Line 400 sub StudentDataSelect {
|
my $Str = "\n"; |
my $Str = "\n"; |
$Str .= '<select name="'.$elementname.'" '; |
$Str .= '<select name="'.$elementname.'" '; |
if ($status ne 'single') { |
if ($status ne 'single') { |
$Str .= 'multiple="true" '; |
$Str .= 'multiple="multiple" '; |
} |
} |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
Line 501 sub map_select {
|
Line 501 sub map_select {
|
my $form = "\n"; |
my $form = "\n"; |
$form .= '<select name="'.$elementname.'" '; |
$form .= '<select name="'.$elementname.'" '; |
if ($status ne 'single') { |
if ($status ne 'single') { |
$form .= 'multiple="true" '; |
$form .= 'multiple="multiple" '; |
} |
} |
$form .= 'size="'.$numvisible.'" >'."\n"; |
$form .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
Line 550 sub SectionSelect {
|
Line 550 sub SectionSelect {
|
my $Str = "\n"; |
my $Str = "\n"; |
$Str .= '<select name="'.$elementname.'" '; |
$Str .= '<select name="'.$elementname.'" '; |
if ($status ne 'single') { |
if ($status ne 'single') { |
$Str .= 'multiple="true" '; |
$Str .= 'multiple="multiple" '; |
} |
} |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
Line 585 sub GroupSelect {
|
Line 585 sub GroupSelect {
|
my $Str = "\n"; |
my $Str = "\n"; |
$Str .= '<select name="'.$elementname.'" '; |
$Str .= '<select name="'.$elementname.'" '; |
if ($status ne 'single') { |
if ($status ne 'single') { |
$Str .= 'multiple="true" '; |
$Str .= 'multiple="multiple" '; |
} |
} |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
Line 714 sub DisplayClasslist {
|
Line 714 sub DisplayClasslist {
|
$Str .= '&sort='.&escape($env{'form.sort'}); |
$Str .= '&sort='.&escape($env{'form.sort'}); |
$Str .= '&SelectedStudent='; |
$Str .= '&SelectedStudent='; |
$Str .= &escape($sname).'">'; |
$Str .= &escape($sname).'">'; |
$Str .= $student->{$field}.' '; |
$Str .= $student->{$field}.' '; |
$Str .= '</a>'; |
$Str .= '</a>'; |
} elsif ($field eq 'status') { |
} elsif ($field eq 'status') { |
$Str .= &mt($student->{$field}); |
$Str .= &mt($student->{$field}); |
Line 738 sub DisplayClasslist {
|
Line 738 sub DisplayClasslist {
|
sub CreateMainMenu { |
sub CreateMainMenu { |
# |
# |
# Define menu data |
# Define menu data |
my @reports = ({ internal_name => 'problem_statistics', |
my @reports = ( |
name => &mt('Overall Problem Statistics'), |
{categorytitle => 'Statistics and Analyses', |
short_description => |
items => [ |
&mt('Student performance statistics on all problems.'), |
{url => '/adm/statistics?reportSelected=problem_statistics', |
}, |
permission => 'F', |
{ internal_name => 'problem_analysis', |
icon => 'document-open.png', |
name => &mt('Detailed Problem Analysis'), |
linktext => ('Overall Problem Statistics'), |
short_description => |
linktitle => ('Student performance statistics on all problems.')}, |
&mt('Detailed statistics and graphs of student performance on problems.'), |
|
}, |
{url => '/adm/statistics?reportSelected=problem_analysis', |
{ internal_name => 'submissiontime_analysis', |
permission => 'F', |
name => &mt('Submission Time Plots'), |
icon => 'edit-find.png', |
short_description => |
linktext => ('Detailed Problem Analysis'), |
&mt('Display and analysis of submission times on assessments.'), |
linktitle => ('Detailed statistics and graphs of student performance on problems.')}, |
}, |
]}, |
{ internal_name => 'student_submission_reports', |
{categorytitle => 'Plots', |
name => &mt('Student Submission Reports'), |
items => [ |
short_description => |
{url => '/adm/statistics?reportSelected=submissiontime_analysis', |
&mt('Prepare reports of student submissions.'), |
permission => 'F', |
}, |
icon => 'subtimpl.png', |
{ internal_name => 'survey_reports', |
linktext => ('Submission Time Plots'), |
name => &mt('Survey Reports'), |
linktitle => ('Display and analysis of submission times on assessments.')}, |
short_description => |
|
&mt('Prepare reports on survey results.'), |
{url => '/adm/statistics?reportSelected=correct_problems_plot', |
}, |
permission => 'F', |
{ internal_name => 'correct_problems_plot', |
icon => 'coprplot.png', |
name => &mt('Correct Problems Plot'), |
linktext => ('Correct Problems Plot'), |
short_description => |
linktitle => ('Display a histogram of student performance in the course.')}, |
&mt('Display a histogram of student performance in the course.'), |
]}, |
}, |
{categorytitle => 'Reports', |
# { internal_name => 'grading_analysis', |
items => [ |
# name => &mt('Detailed Grading Analysis'), |
{url => '/adm/statistics?reportSelected=student_submission_reports', |
# short_description => |
permission => 'F', |
# &mt('Display statistics about who graded who.'), |
icon => 'edit-copy.png', |
# }, |
linktext => ('Student Submission Reports'), |
# { internal_name => 'student_assessment', |
linktitle => ('Prepare reports of student submissions.')}, |
# name => &mt('Problem Status Chart'), |
|
# short_description => |
{url => '/adm/statistics?reportSelected=survey_reports', |
# &mt('Brief view of each students performance in course.'), |
permission => 'F', |
# }, |
icon => 'docs.png', |
# 'percentage' => 'Correct-problems Plot', |
linktext => ('Survey Reports'), |
# 'activitylog' => 'Activity Log', |
linktitle => ('Prepare reports on survey results.')}, |
); |
]}); |
# |
|
# Create the menu |
return &Apache::lonhtmlcommon::generate_menu(@reports); |
my $Str; |
|
$Str .= '<h2>'.&mt('Please select a report to generate').'</h2>'; |
|
foreach my $reportdata (@reports) { |
|
$Str .=' <h3><a href="/adm/statistics?reportSelected='. |
|
$reportdata->{'internal_name'}.'" >'. |
|
$reportdata->{'name'}."</a></h3>\n"; |
|
$Str .= ' '.(' 'x8).$reportdata->{'short_description'}. |
|
"\n"; |
|
} |
|
$Str .="</dl>\n"; |
|
# |
|
return $Str; |
|
} |
} |
|
|
|
|
Line 872 ENDSTYLE
|
Line 861 ENDSTYLE
|
.'</p>'); |
.'</p>'); |
$r->print('<p>'. |
$r->print('<p>'. |
&mt('Course Statistics and Charts cannot be '. |
&mt('Course Statistics and Charts cannot be '. |
'retrieved until the database is restarted. '. |
'retrieved until the database is restarted. '. |
'Your data is intact but cannot be displayed '. |
'Your data is intact but cannot be displayed '. |
'at this time.').'</p>'); |
'at this time.').'</p>'); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |