[LON-CAPA-cvs] cvs: loncom /interface/statistics lonsubmissiontimeanalysis.pm

[matthew]

matthew		Thu Dec 18 11:36:12 2003 EDT

  Modified files:              
    /loncom/interface/statistics	lonsubmissiontimeanalysis.pm 
  Log:
  Bug 2478: (partially complete) label on right side of submission time plot
  Bug 2473: (partially complete) changed number correct to % of students 
            having problem correct.
  
  
Index: loncom/interface/statistics/lonsubmissiontimeanalysis.pm
diff -u loncom/interface/statistics/lonsubmissiontimeanalysis.pm:1.5 loncom/interface/statistics/lonsubmissiontimeanalysis.pm:1.6
--- loncom/interface/statistics/lonsubmissiontimeanalysis.pm:1.5	Wed Dec 10 18:06:57 2003
+++ loncom/interface/statistics/lonsubmissiontimeanalysis.pm	Thu Dec 18 11:36:12 2003
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonsubmissiontimeanalysis.pm,v 1.5 2003/12/10 23:06:57 matthew Exp $
+# $Id: lonsubmissiontimeanalysis.pm,v 1.6 2003/12/18 16:36:12 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -241,7 +241,10 @@
             $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);
@@ -252,17 +255,19 @@
         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')
                                               );
     $html .= '<br />';
     return $html;