--- loncom/interface/statistics/lonsubmissiontimeanalysis.pm 2003/10/30 16:20:18 1.3
+++ loncom/interface/statistics/lonsubmissiontimeanalysis.pm 2004/01/08 15:51:16 1.7
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonsubmissiontimeanalysis.pm,v 1.3 2003/10/30 16:20:18 matthew Exp $
+# $Id: lonsubmissiontimeanalysis.pm,v 1.7 2004/01/08 15:51:16 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -69,6 +69,16 @@ sub render_resource {
sub BuildSubmissionTimePage {
my ($r,$c)=@_;
+ #
+ my %Saveable_Parameters = ('Status' => 'scalar',
+ 'Section' => 'array');
+ &Apache::loncommon::store_course_settings('submissiontime_analysis',
+ \%Saveable_Parameters);
+ &Apache::loncommon::restore_course_settings('submissiontime_analysis',
+ \%Saveable_Parameters);
+ #
+ &Apache::lonstatistics::PrepareClasslist();
+ #
$r->print('
'.&mt('Submission Time Plots').'
');
$r->print(&CreateInterface());
#
@@ -231,7 +241,10 @@ sub analyze_times {
$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 $xlabel;
(undef,undef,undef,$mday,$month,$year,$wday) = localtime($day_start);
@@ -242,17 +255,22 @@ sub analyze_times {
join(' ',($Month[$month],$mday,1900+$year));
$html .= &Apache::loncommon::DrawXYYGraph($title,
$xlabel,
- 'Number of Submissions per hour',
+ 'Submissions vs Time',
$plotcolors,
\@Xlabel,
\@Ydata,
0,$max,
\@AnsData,
- 0,scalar(@$students),
+ 0,100,
(xskip => $bins_per_day,
x_ticks => $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',
+ 'data.1.label'=>'Submissions per hour',
+ 'data.2.label'=>'Percent correct',
+ )
);
$html .= '
';
return $html;
@@ -354,14 +372,23 @@ sub ProblemSelector {
if ($ENV{'form.problemchoice'} eq $value) {
$checked = 'checked ';
}
+ my $title = $res->{'title'};
+ if (! defined($title) || $title eq '') {
+ ($title) = ($res->{'src'} =~ m:/([^/]*)$:);
+ }
+# &Apache::lonnet::logthis('title = :'.$title.':');
$seq_str .= ''.
''.
' | '.
- ''.$res->{'title'}.' ';
+ ''.$title.' ';
} else {
+ my $title = $res->{'title'};
+ if (! defined($title) || $title eq '') {
+ ($title) = ($res->{'src'} =~ m:/([^/]*)$:);
+ }
$seq_str .= ' |
'.
' '.' | '.
- ''.$res->{'title'}.''.
+ ''.$title.''.
" |
\n";
foreach my $part (@{$res->{'parts'}}) {
my $value = &Apache::lonnet::escape