version 1.6, 2003/12/18 16:36:12
|
version 1.8, 2004/01/08 19:18:50
|
Line 253 sub analyze_times {
|
Line 253 sub analyze_times {
|
(undef,undef,undef,$mday,$month,$year,$wday) = localtime($endtime); |
(undef,undef,undef,$mday,$month,$year,$wday) = localtime($endtime); |
$xlabel .= $FullWeekDay[$wday].' '. |
$xlabel .= $FullWeekDay[$wday].' '. |
join(' ',($Month[$month],$mday,1900+$year)); |
join(' ',($Month[$month],$mday,1900+$year)); |
|
my $width = 50+2*$bincount; |
|
if ($width < 250) { |
|
$width = 250; |
|
} |
$html .= &Apache::loncommon::DrawXYYGraph($title, |
$html .= &Apache::loncommon::DrawXYYGraph($title, |
$xlabel, |
$xlabel, |
'Submissions vs Time', |
'Submissions vs Time', |
Line 265 sub analyze_times {
|
Line 269 sub analyze_times {
|
(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 => $width, |
y1_label=>'Number of Submissions per hour', |
y1_label=>'Number of Submissions per hour', |
y2_label=>'Percent of Students answering Correctly') |
y2_label=>'Percent of Students answering Correctly', |
|
'data.1.label'=>'Submissions per hour', |
|
'data.2.label'=>'Percent correct', |
|
) |
); |
); |
$html .= '<br />'; |
$html .= '<br />'; |
return $html; |
return $html; |