');
$r->rflush();
+ $r->print('');
$r->print(&Apache::lonstathelpers::render_resource($resource));
- $r->print(' ');
+ $r->print(' ');
$r->rflush();
- $r->print(&analyze_times($r,$resource,\@Students,
- $current_problem->{'part'}));
+ if (@Students) {
+ $r->print(&analyze_times($r,$resource->symb,\@Students,
+ $current_problem->{'part'}));
+ }
}
$r->print('');
}
@@ -158,7 +171,7 @@ sub get_week_start {
}
sub analyze_times {
- my ($r,$resource,$students,$part) = @_;
+ my ($r,$symb,$students,$part) = @_;
my $htmltable;
#
# Convenience arrays
@@ -170,14 +183,21 @@ sub analyze_times {
my $html; # holds results of analysis
# Get the data
my $SubData = &Apache::loncoursedata::get_response_time_data
- ($students,$resource->{'symb'},$part);
+ ([&Apache::lonstatistics::get_selected_sections()],
+ [&Apache::lonstatistics::get_selected_groups()],
+ $Apache::lonstatistics::enrollment_status,
+ $symb,$part);
if (! defined($SubData) || ! ref($SubData)) {
- $html.= '
There is no submission data for this problem
';
+ $html.= '
'
+ .&mt('There is no submission data for this problem at all.')
+ .'
';
return $html;
}
my $NumSub = scalar(@{$SubData});
if (! @{$SubData}) {
- $html.= '
There is no submission data for this problem
';
+ $html.= '
'
+ .&mt('There is no submission data for this problem.')
+ .'
';
return $html;
}
# Process the data
@@ -193,20 +213,21 @@ sub analyze_times {
my $endtime = $day_start;
#
# Initialize loop variables
- my $max;
- my @Ydata=(0);
- my @AnsData=(0);
- my @Xlabel=($WeekDay[$wday]);
- my @BinEnd;
- my $cumulative_answers = 0;
+ my $max; # The sum of @Ydata
+ my @Ydata=(0); # number of submissions
+ my @AnsData=(0); # number of correct submissions
+ my @Xlabel=($WeekDay[$wday]); # Labels of itmes
+ my @BinEnd; # The end time of each bin
+ my $cumulative_answers = 0; # The sum of @AnsData
+ my %students; # which students have attempted the problem?
#
foreach my $row (@$SubData) {
my $subtime = &get_time_from_row($row);
while ($subtime > $endtime && $endtime < time) {
# Create a new bin
$bincount++;
- $Ydata[$bincount]=0;
- $AnsData[$bincount]=$AnsData[$bincount-1];
+ $Ydata[$bincount] = 0;
+ $AnsData[$bincount] = 0;
$endtime += $binsize;
push(@BinEnd,$endtime);
if ($bincount % (86400/$binsize) == 0) {
@@ -221,21 +242,16 @@ sub analyze_times {
$max = $Ydata[$bincount] if ($max < $Ydata[$bincount]);
$AnsData[$bincount] += &successful_submission($row);
$cumulative_answers += &successful_submission($row);
+ $students{$row->[&Apache::loncoursedata::RT_student_id()]}++;
}
- foreach my $maximum (10,15,20,25,30,40,50,60,70,80,90,100,
- 120,150,200,250,300,350,400,450,500,
- 600,700,800,900,1000,1100,1200,1500,2000,
- 2500,3000,4000,5000) {
- if ($max < $maximum) {
- $max = $maximum;
- last;
- }
- }
+ #
+ # Pad the data to a full day
while ($bincount % $bins_per_day != 0) {
$bincount++;
$Ydata[$bincount]=0;
- $AnsData[$bincount]=$AnsData[$bincount-1];
+ $AnsData[$bincount]=0;
$endtime += $binsize;
+ push(@BinEnd,$endtime);
if ($bincount % (86400/$binsize) == 0) {
$wday ++;
$wday %= 7;
@@ -244,44 +260,76 @@ sub analyze_times {
$Xlabel[$bincount] = '';
}
}
- my $numstudents = scalar(@$students);
+ my $numstudents = scalar(keys(%students));
+ #
+ # Determine a nice maximum value to use
+ foreach my $maximum (10,15,20,25,30,40,50,60,70,80,90,100,
+ 120,150,200,250,300,350,400,450,500,
+ 600,700,800,900,1000,1100,1200,1500,2000,
+ 2500,3000,4000,5000) {
+ if ($max < $maximum) {
+ $max = $maximum;
+ last;
+ }
+ }
+ #
+ # Build the data table
$htmltable = '
'.
'
'.
''.
'
'.
- '
'.&mt('Begin Date').'
'.
+ '
'.&mt('Begin').'
'.
+ '
'.(' 'x3).'
'.
+ '
'.&mt('End').'
'.
+ '
'.&mt('Submissions (plotted)').'
'.
+ '
'.(' 'x3).'
'.
+ '
'.&mt('Correct Submissions (not plotted)').'
'.
'
'.(' 'x3).'
'.
- '
'.&mt('End Date').'
'.
- '
'.&mt('Submissions').'
'.
+ '
'.&mt('Cumulative Correct of those attempting the problem (not plotted)').'
'.
'
'.(' 'x3).'
'.
- '
'.&mt('Correct Submissions').'
'.
+ '
'.&mt('Cumulative Percent Correct of those attempting the problem (not plotted)').'
'.
'
'.(' 'x3).'
'.
- '
'.&mt('Percent Correct').'
'.
+ '
'.&mt('Cumulative Percent Correct of selected students (plotted)').'
'.
'
'.
''.
'';
- for (my $i=0;$i<=$#AnsData;$i++) {
- $AnsData[$i] = int(100*($AnsData[$i]/$numstudents));
+ my @CumulativeCorrect=(0);
+ my @corr_as_percent_of_selected;
+ my @corr_as_percent_of_answering;
+ for (my $i=0;$i<=$#Ydata;$i++) {
+ $CumulativeCorrect[$i]=$CumulativeCorrect[-1]+$AnsData[$i];
+ $corr_as_percent_of_answering[$i] =
+ sprintf('%3.1f',100*$CumulativeCorrect[$i]/$numstudents);
+ $corr_as_percent_of_selected[$i] =
+ sprintf('%3.1f',100*$CumulativeCorrect[$i]/scalar(@$students));
if ($Ydata[$i] != 0) {
next if (! defined($BinEnd[$i]) || $BinEnd[$i] == 0);
$htmltable .=
'