version 1.35, 2012/05/10 10:29:09
|
version 1.35.2.3, 2020/11/12 00:31:19
|
Line 31 use strict;
|
Line 31 use strict;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonquickgrades(); |
|
use Apache::loncoursedata(); |
use Apache::loncoursedata(); |
use Apache::lonstatistics; |
use Apache::lonstatistics; |
use Apache::lonstathelpers; |
use Apache::lonstathelpers; |
Line 68 sub BuildSubmissionTimePage {
|
Line 67 sub BuildSubmissionTimePage {
|
&Apache::lonstatistics::PrepareClasslist(); |
&Apache::lonstatistics::PrepareClasslist(); |
# |
# |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Submission Time Plots')); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Submission Time Plots')); |
&Apache::lonquickgrades::startGradeScreen($r,'statistics'); |
|
$r->print(&CreateInterface()); |
$r->print(&CreateInterface()); |
# |
# |
my @Students = @Apache::lonstatistics::Students; |
my @Students = @Apache::lonstatistics::Students; |
# |
# |
if (@Students < 1) { |
if (@Students < 1) { |
$r->print('<div class="LC_warning">' |
$r->print('<div class="LC_warning">' |
.&mt('There are no students in the sections selected.' |
.&mt('There are no students in the sections selected.') |
.'</div>') |
.'</div>' |
); |
); |
} |
} |
# |
# |
Line 105 sub BuildSubmissionTimePage {
|
Line 103 sub BuildSubmissionTimePage {
|
$r->rflush(); |
$r->rflush(); |
# |
# |
# Determine which problem we are to analyze |
# Determine which problem we are to analyze |
my $current_problem = &Apache::lonstathelpers::get_target_from_id |
my ($navmap,$current_problem) = &get_current_problem(); # need to retrieve $navmap |
($env{'form.problemchoice'}); |
# to support $resource->* calls |
# |
# for src and compTitle (below) |
my ($navmap,$prev,$curr,$next) = |
|
&Apache::lonstathelpers::get_prev_curr_next($current_problem, |
|
'.', |
|
'part'); |
|
if (exists($env{'form.PrevProblemAnalysis'}) && defined($prev)) { |
|
$current_problem = $prev; |
|
} elsif (exists($env{'form.NextProblemAnalysis'}) && defined($next)) { |
|
$current_problem = $next; |
|
} else { |
|
$current_problem = $curr; |
|
} |
|
# |
# |
# Store the current problem choice and send it out in the form |
# Store the current problem choice and send it out in the form |
$env{'form.problemchoice'} = |
$env{'form.problemchoice'} = |
Line 154 sub BuildSubmissionTimePage {
|
Line 141 sub BuildSubmissionTimePage {
|
} |
} |
} |
} |
|
|
|
sub get_current_problem { |
|
my $current_problem = &Apache::lonstathelpers::get_target_from_id |
|
($env{'form.problemchoice'}); |
|
my ($navmap,$prev,$curr,$next) = |
|
&Apache::lonstathelpers::get_prev_curr_next($current_problem, |
|
'.', |
|
'part'); |
|
if (exists($env{'form.PrevProblemAnalysis'}) && defined($prev)) { |
|
$current_problem = $prev; |
|
} elsif (exists($env{'form.NextProblemAnalysis'}) && defined($next)) { |
|
$current_problem = $next; |
|
} else { |
|
$current_problem = $curr; |
|
} |
|
return ($navmap,$current_problem); |
|
} |
|
|
######################################################### |
######################################################### |
######################################################### |
######################################################### |
## |
## |