version 1.35.2.4, 2020/11/18 15:38:56
|
version 1.36, 2012/12/17 02:20:13
|
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 67 sub BuildSubmissionTimePage {
|
Line 68 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; |
Line 103 sub BuildSubmissionTimePage {
|
Line 105 sub BuildSubmissionTimePage {
|
$r->rflush(); |
$r->rflush(); |
# |
# |
# Determine which problem we are to analyze |
# Determine which problem we are to analyze |
my ($navmap,$current_problem) = &get_current_problem(); # need to retrieve $navmap |
my $current_problem = &Apache::lonstathelpers::get_target_from_id |
# to support $resource->* calls |
($env{'form.problemchoice'}); |
# 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 141 sub BuildSubmissionTimePage {
|
Line 154 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); |
|
} |
|
|
|
######################################################### |
######################################################### |
######################################################### |
######################################################### |
## |
## |
Line 223 sub analyze_times {
|
Line 219 sub analyze_times {
|
my @Ydata=(0); # number of submissions |
my @Ydata=(0); # number of submissions |
my @AnsData=(0); # number of correct submissions |
my @AnsData=(0); # number of correct submissions |
my @Xlabel=($WeekDay[$wday]); # Labels of itmes |
my @Xlabel=($WeekDay[$wday]); # Labels of itmes |
my @BinEnd=($endtime); # The end time of each bin |
my @BinEnd; # The end time of each bin |
my $cumulative_answers = 0; # The sum of @AnsData |
my $cumulative_answers = 0; # The sum of @AnsData |
my %students; # which students have attempted the problem? |
my %students; # which students have attempted the problem? |
# |
# |
Line 235 sub analyze_times {
|
Line 231 sub analyze_times {
|
$Ydata[$bincount] = 0; |
$Ydata[$bincount] = 0; |
$AnsData[$bincount] = 0; |
$AnsData[$bincount] = 0; |
$endtime += $binsize; |
$endtime += $binsize; |
$BinEnd[$bincount] = $endtime; |
push(@BinEnd,$endtime); |
if ($bincount % (86400/$binsize) == 0) { |
if ($bincount % (86400/$binsize) == 0) { |
$wday++; |
$wday++; |
$wday %= 7; |
$wday %= 7; |
Line 257 sub analyze_times {
|
Line 253 sub analyze_times {
|
$Ydata[$bincount]=0; |
$Ydata[$bincount]=0; |
$AnsData[$bincount]=0; |
$AnsData[$bincount]=0; |
$endtime += $binsize; |
$endtime += $binsize; |
$BinEnd[$bincount]=$endtime; |
push(@BinEnd,$endtime); |
if ($bincount % (86400/$binsize) == 0) { |
if ($bincount % (86400/$binsize) == 0) { |
$wday ++; |
$wday ++; |
$wday %= 7; |
$wday %= 7; |