loncom/interface/statistics/lonsubmissiontimeanalysis.pm - diff

Return to lonsubmissiontimeanalysis.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.35.2.3, 2020/11/12 00:31:19	version 1.35.2.4, 2020/11/18 15:38:56
Line 223 sub analyze_times {	Line 223 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 235 sub analyze_times {	Line 235 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 257 sub analyze_times {	Line 257 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;