version 1.148, 2009/12/16 13:00:45
|
version 1.148.2.3, 2010/01/11 04:11:52
|
Line 766 sub CreateMainMenu {
|
Line 766 sub CreateMainMenu {
|
icon => 'coprplot.png', |
icon => 'coprplot.png', |
linktext => ('Correct Problems Plot'), |
linktext => ('Correct Problems Plot'), |
linktitle => ('Display a histogram of student performance in the course.')}, |
linktitle => ('Display a histogram of student performance in the course.')}, |
]}, |
]}); |
|
unless(&Apache::loncommon::needs_gci_custom()) { |
|
push(@reports, |
{categorytitle => 'Reports', |
{categorytitle => 'Reports', |
items => [ |
items => [ |
{url => '/adm/statistics?reportSelected=student_submission_reports', |
{url => '/adm/statistics?reportSelected=student_submission_reports', |
Line 781 sub CreateMainMenu {
|
Line 783 sub CreateMainMenu {
|
linktext => ('Survey Reports'), |
linktext => ('Survey Reports'), |
linktitle => ('Prepare reports on survey results.')}, |
linktitle => ('Prepare reports on survey results.')}, |
]}); |
]}); |
|
} |
|
|
return &Apache::lonhtmlcommon::generate_menu(@reports); |
return &Apache::lonhtmlcommon::generate_menu(@reports); |
|
|
Line 817 sub handler {
|
Line 820 sub handler {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
if ($r->header_only) { return OK; } |
if ($r->header_only) { return OK; } |
|
my $gcicustom = &Apache::loncommon::needs_gci_custom(); |
|
if ($gcicustom) { |
|
my $now = time; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom); |
|
my $duedate = $courseopt->{$env{'request.course.id'}.'.0.duedate'}; |
|
if ((!$duedate) || ($duedate > $now)) { |
|
$r->print(&Apache::loncommon::start_page("Course Statistics")); |
|
$r->print('<h3>'.&mt('Display of statistics').'</h3>'); |
|
if ($duedate > $now) { |
|
$r->print('<p>'.&mt('Aggregate test performance data will be available after the Concept Test end date: [_1].', |
|
&Apache::lonlocal::locallocaltime($duedate)).'</p>'); |
|
} else { |
|
$r->print('<p>'. |
|
&mt('Aggregate test performance data unavailable without definition of an end date for the Concept Test.').'</p>'); |
|
} |
|
$r->print(&Apache::loncommon::end_page()); |
|
return OK; |
|
} |
|
} |
|
|
# |
# |
# Extract form elements from query string |
# Extract form elements from query string |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
Line 902 ENDSTYLE
|
Line 927 ENDSTYLE
|
&Apache::lonsubmissiontimeanalysis::BuildSubmissionTimePage($r,$c); |
&Apache::lonsubmissiontimeanalysis::BuildSubmissionTimePage($r,$c); |
} elsif($GoToPage eq 'student_submission_reports') { |
} elsif($GoToPage eq 'student_submission_reports') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=> |
({href=> |
'/adm/statistics?reportselected=student_submission_reports', |
'/adm/statistics?reportselected=student_submission_reports', |
text=>'Student Submission Reports'}); |
text=>'Student Submission Reports'}); |
&Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c); |
if ($gcicustom) { |
|
$r->print(&mt('Only aggregate performance data are available for Concept Tests.')); |
|
} else { |
|
&Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c); |
|
} |
} elsif($GoToPage eq 'survey_reports') { |
} elsif($GoToPage eq 'survey_reports') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=> |
({href=> |
Line 922 ENDSTYLE
|
Line 951 ENDSTYLE
|
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/statistics?reportselected=student_assessment', |
({href=>'/adm/statistics?reportselected=student_assessment', |
text=>'Chart'}); |
text=>'Chart'}); |
&Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c); |
if ($gcicustom) { |
|
$r->print(&mt('Only aggregate performance data are available for Concept Tests.')); |
|
} else { |
|
&Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c); |
|
} |
} elsif($GoToPage eq 'grading_analysis') { |
} elsif($GoToPage eq 'grading_analysis') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/statistics?reportselected=grading_anaylsis', |
({href=>'/adm/statistics?reportselected=grading_anaylsis', |