loncom/interface/statistics/lonsubmissiontimeanalysis.pm - diff

Return to lonsubmissiontimeanalysis.pm CVS log

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

version 1.5, 2003/12/10 23:06:57	version 1.6, 2003/12/18 16:36:12
Line 241 sub analyze_times {	Line 241 sub analyze_times {
$Xlabel[$bincount] = '';	$Xlabel[$bincount] = '';
}	}
}	}
	my $numstudents = scalar(@$students);
	for (my $i=0;$i<=$#AnsData;$i++) {
	$AnsData[$i] = int(100*($AnsData[$i]/$numstudents));
	}
my $title = 'Number of Submissions and Number Correct';	my $title = 'Number of Submissions and Number Correct';
my $xlabel;	my $xlabel;
(undef,undef,undef,$mday,$month,$year,$wday) = localtime($day_start);	(undef,undef,undef,$mday,$month,$year,$wday) = localtime($day_start);
Line 252 sub analyze_times {	Line 255 sub analyze_times {
join(' ',($Month[$month],$mday,1900+$year));	join(' ',($Month[$month],$mday,1900+$year));
$html .= &Apache::loncommon::DrawXYYGraph($title,	$html .= &Apache::loncommon::DrawXYYGraph($title,
$xlabel,	$xlabel,
'Number of Submissions per hour',	'Submissions vs Time',
$plotcolors,	$plotcolors,
\@Xlabel,	\@Xlabel,
\@Ydata,	\@Ydata,
0,$max,	0,$max,
\@AnsData,	\@AnsData,
0,scalar(@$students),	0,100,
(xskip => $bins_per_day,	(xskip => $bins_per_day,
x_ticks => $bins_per_day,	x_ticks => $bins_per_day,
x_tick_offset => $bins_per_day,	x_tick_offset => $bins_per_day,
width => 50+2*$bincount)	width => 50+2*$bincount,
	y1_label=>'Number of Submissions per hour',
	y2_label=>'Percent of Students answering Correctly')
);	);
$html .= '<br />';	$html .= '<br />';
return $html;	return $html;