version 1.164, 2017/12/18 23:51:14
|
version 1.165, 2020/11/10 19:28:32
|
Line 832 sub handler {
|
Line 832 sub handler {
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['sort','reportSelected', |
['sort','reportSelected', |
'SelectedStudent']); |
'SelectedStudent']); |
|
my $GoToPage = $env{'form.reportSelected'}; |
|
|
# |
# |
# Give the LON-CAPA page header |
# Give the LON-CAPA page header |
my $style = <<ENDSTYLE; |
my $style = <<ENDSTYLE; |
Line 842 sub handler {
|
Line 844 sub handler {
|
td.essay { border: 1px solid gray; } |
td.essay { border: 1px solid gray; } |
</style> |
</style> |
ENDSTYLE |
ENDSTYLE |
|
|
|
my $head_extra = $style; |
|
if (($env{'form.reportSelected'} eq 'student_submission_reports') && |
|
($env{'form.renderprob'})) { |
|
my @Symbs = &Apache::lonstathelpers::get_selected_symbs('problemchoice'); |
|
if (scalar(@Symbs) == 1) { |
|
$head_extra .= &Apache::loncommon::css_links($Symbs[0]); |
|
} |
|
} elsif ($env{'form.reportSelected'} eq 'submissiontime_analysis') { |
|
my ($navmap,$current_problem) = |
|
&Apache::lonsubmissiontimeanalysis::get_current_problem(); |
|
if (ref($current_problem) eq 'HASH') { |
|
my $symb = $current_problem->{'symb'}; |
|
if ($symb) { |
|
$head_extra .= &Apache::loncommon::css_links($symb); |
|
} |
|
} |
|
} elsif (($env{'form.reportSelected'} eq 'problem_analysis') && |
|
($env{'form.show_prob'})) { |
|
my $problem_types = &Apache::lonproblemanalysis::analyzable_types(); |
|
my ($navmap,$current_problem) = |
|
&Apache::lonproblemanalysis::get_current_problem($problem_types); |
|
if (ref($current_problem) eq 'HASH') { |
|
my $symb = $current_problem->{'symb'}; |
|
my $res = $current_problem->{'resource'}; |
|
if ($symb) { |
|
$head_extra .= &Apache::loncommon::css_links($symb); |
|
} |
|
} |
|
} |
$r->print(&Apache::loncommon::start_page('Course Statistics and Charts', |
$r->print(&Apache::loncommon::start_page('Course Statistics and Charts', |
$style)); |
$head_extra)); |
$r->rflush(); |
$r->rflush(); |
# |
# |
# Either print out a menu for them or send them to a report |
# Either print out a menu for them or send them to a report |
Line 854 ENDSTYLE
|
Line 885 ENDSTYLE
|
text =>'Statistics', |
text =>'Statistics', |
faq=>139, |
faq=>139, |
bug=>'Statistics and Charts'}); |
bug=>'Statistics and Charts'}); |
if (! exists($env{'form.reportSelected'}) || |
if ($GoToPage eq '') { |
$env{'form.reportSelected'} eq '') { |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page')); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page')); |
&Apache::lonquickgrades::startGradeScreen($r,'statistics'); |
&Apache::lonquickgrades::startGradeScreen($r,'statistics'); |
$r->print(&CreateMainMenu()); |
$r->print(&CreateMainMenu()); |
Line 884 ENDSTYLE
|
Line 914 ENDSTYLE
|
&Apache::loncoursedata::delete_caches($env{'request.course.id'}); |
&Apache::loncoursedata::delete_caches($env{'request.course.id'}); |
} |
} |
# |
# |
my $GoToPage = $env{'form.reportSelected'}; |
|
# |
|
# Begin form output |
# Begin form output |
$r->print('<form name="Statistics" '); |
$r->print('<form name="Statistics" '); |
if ($GoToPage eq 'student_submission_reports') { |
if ($GoToPage eq 'student_submission_reports') { |