[BACK]Return to lonsubmissiontimeanalysis.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonsubmissiontimeanalysis.pm between versions 1.5 and 1.9

version 1.5, 2003/12/10 23:06:57 version 1.9, 2004/01/08 19:20:12
Line 171  sub analyze_times { Line 171  sub analyze_times {
     my $SubData = &Apache::loncoursedata::get_response_time_data      my $SubData = &Apache::loncoursedata::get_response_time_data
         ($students,$resource->{'symb'},$part);          ($students,$resource->{'symb'},$part);
     if (! defined($SubData) || ! ref($SubData)) {      if (! defined($SubData) || ! ref($SubData)) {
         $html.= '<h2>There is no submission data for this resource</h2>';          $html.= '<h2>There is no submission data for this problem</h2>';
         return $html;          return $html;
     }      }
     my $NumSub = scalar(@{$SubData});      my $NumSub = scalar(@{$SubData});
     if (! @{$SubData}) {      if (! @{$SubData}) {
         $html.= '<h2>There is no submission data for this resource</h2>';          $html.= '<h2>There is no submission data for this problem</h2>';
         return $html;          return $html;
     }      }
     # Process the data      # Process the data
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 250  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,
                                               '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 => $width,
                         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 .= '<br />';      $html .= '<br />';
     return $html;      return $html;
Removed from v.1.5  
changed lines
  Added in v.1.9

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>