version 1.34, 2012/05/03 11:21:33
|
version 1.38, 2020/11/18 15:31:40
|
Line 75 sub BuildSubmissionTimePage {
|
Line 75 sub BuildSubmissionTimePage {
|
# |
# |
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 105 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 142 sub BuildSubmissionTimePage {
|
Line 131 sub BuildSubmissionTimePage {
|
&Apache::lonstatistics::section_and_enrollment_description(). |
&Apache::lonstatistics::section_and_enrollment_description(). |
'</p>'); |
'</p>'); |
$r->rflush(); |
$r->rflush(); |
$r->print('<hr />'); |
|
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print('<hr /><br />'); |
$r->print('<br />'); |
$r->rflush(); |
$r->rflush(); |
if (@Students) { |
if (@Students) { |
$r->print(&analyze_times($r,$resource->symb,\@Students, |
$r->print(&analyze_times($r,$resource->symb,\@Students, |
Line 155 sub BuildSubmissionTimePage {
|
Line 143 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 220 sub analyze_times {
|
Line 225 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; # The end time of each bin |
my @BinEnd=($endtime); # 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 232 sub analyze_times {
|
Line 237 sub analyze_times {
|
$Ydata[$bincount] = 0; |
$Ydata[$bincount] = 0; |
$AnsData[$bincount] = 0; |
$AnsData[$bincount] = 0; |
$endtime += $binsize; |
$endtime += $binsize; |
push(@BinEnd,$endtime); |
$BinEnd[$bincount] = $endtime; |
if ($bincount % (86400/$binsize) == 0) { |
if ($bincount % (86400/$binsize) == 0) { |
$wday++; |
$wday++; |
$wday %= 7; |
$wday %= 7; |
Line 254 sub analyze_times {
|
Line 259 sub analyze_times {
|
$Ydata[$bincount]=0; |
$Ydata[$bincount]=0; |
$AnsData[$bincount]=0; |
$AnsData[$bincount]=0; |
$endtime += $binsize; |
$endtime += $binsize; |
push(@BinEnd,$endtime); |
$BinEnd[$bincount]=$endtime; |
if ($bincount % (86400/$binsize) == 0) { |
if ($bincount % (86400/$binsize) == 0) { |
$wday ++; |
$wday ++; |
$wday %= 7; |
$wday %= 7; |
Line 277 sub analyze_times {
|
Line 282 sub analyze_times {
|
} |
} |
# |
# |
# Build the data table |
# Build the data table |
$htmltable = '<p>'. |
$htmltable = '<br><h3>'.&mt('Student submission data').'</h3><p>'. |
&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::start_data_table_row(). |
&Apache::loncommon::start_data_table_row(). |