[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.15 and 1.16

version 1.15, 2004/06/04 21:42:19 version 1.16, 2004/06/25 18:23:02
Line 159  sub get_week_start { Line 159  sub get_week_start {
   
 sub analyze_times {  sub analyze_times {
     my ($r,$resource,$students,$part) = @_;      my ($r,$resource,$students,$part) = @_;
       my $htmltable;
     #      #
     # Convenience arrays      # Convenience arrays
     my @FullWeekDay = (qw/Sunday Monday Tuesday Wednesday Thursday Friday      my @FullWeekDay = (qw/Sunday Monday Tuesday Wednesday Thursday Friday
Line 196  sub analyze_times { Line 197  sub analyze_times {
     my @Ydata=(0);      my @Ydata=(0);
     my @AnsData=(0);      my @AnsData=(0);
     my @Xlabel=($WeekDay[$wday]);      my @Xlabel=($WeekDay[$wday]);
       my @BinEnd;
     my $cumulative_answers = 0;      my $cumulative_answers = 0;
     #      #
     foreach my $row (@$SubData) {      foreach my $row (@$SubData) {
Line 206  sub analyze_times { Line 208  sub analyze_times {
             $Ydata[$bincount]=0;              $Ydata[$bincount]=0;
             $AnsData[$bincount]=$AnsData[$bincount-1];              $AnsData[$bincount]=$AnsData[$bincount-1];
             $endtime += $binsize;              $endtime += $binsize;
               push(@BinEnd,$endtime);
             if ($bincount % (86400/$binsize) == 0) {              if ($bincount % (86400/$binsize) == 0) {
                 $wday++;                  $wday++;
                 $wday %= 7;                  $wday %= 7;
Line 242  sub analyze_times { Line 245  sub analyze_times {
         }          }
     }      }
     my $numstudents = scalar(@$students);      my $numstudents = scalar(@$students);
       $htmltable = '<p>'.
           '<table rules="groups" frame="border" '.
           'summary="Student submission data">'.
           '<thead>'.
           '<tr>'.
           '<th valign="bottom">'.&mt('Begin Date').'</th>'.
           '<th>'.('&nbsp;'x3).'</th>'.
           '<th valign="bottom">'.&mt('End Date').'</th>'.
           '<th valign="bottom">'.&mt('Submissions').'</th>'.
           '<th>'.('&nbsp;'x3).'</th>'.
           '<th valign="bottom">'.&mt('Correct<br />Submissions').'</th>'.
           '<th>'.('&nbsp;'x3).'</th>'.
           '<th valign="bottom">'.&mt('Percent<br />Correct').'</th>'.
           '</tr>'.
           '</thead>'.
           '<tbody>';
     for (my $i=0;$i<=$#AnsData;$i++) {      for (my $i=0;$i<=$#AnsData;$i++) {
         $AnsData[$i] = int(100*($AnsData[$i]/$numstudents));          $AnsData[$i] = int(100*($AnsData[$i]/$numstudents));
           if ($Ydata[$i] != 0) {
               next if (! defined($BinEnd[$i]) || $BinEnd[$i] == 0);
               $htmltable .= 
                   '<tr>'.
                   '<td align="right">'.
                   &Apache::lonlocal::locallocaltime($BinEnd[$i]-$binsize).
                   '</td>'.
                   '<td>&nbsp;</td>'.
                   '<td align="right">'.
                       &Apache::lonlocal::locallocaltime($BinEnd[$i]).'</td>'.
                   '</td>'.
                   '<td align="right">'.$Ydata[$i].('&nbsp;'x3).'</td>'.
                   '<td>&nbsp;</td>'.
                   '<td align="right">'.($i>0?$AnsData[$i]-$AnsData[$i-1]:$AnsData[$i]).('&nbsp;'x3).'</td>'.
                   '</tr>'.$/;
           }
     }      }
       $htmltable .= '</tbody></table></p>';
     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 276  sub analyze_times { Line 312  sub analyze_times {
                      'data.2.label'=>'Percent correct',                       'data.2.label'=>'Percent correct',
                                                )                                                 )
                                               );                                                );
     $html .= '<br />';      $html .= '<br />'.$htmltable;
     return $html;      return $html;
 }  }
   
Line 332  sub CreateInterface { Line 368  sub CreateInterface {
     $Str .= '<p>';      $Str .= '<p>';
     $Str .= '<table cellspacing="5">'."\n";      $Str .= '<table cellspacing="5">'."\n";
     $Str .= '<tr>';      $Str .= '<tr>';
     $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';      $Str .= '<th align="center">'.&mt('Sections').'</th>';
     $Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>';      $Str .= '<th align="center">'.&mt('Enrollment Status').'</th>';
     $Str .= '</tr>'."\n";      $Str .= '</tr>'."\n";
     ##      ##
     ##       ## 
     $Str .= '<tr><td align="center">'."\n";      $Str .= '<tr><td align="center">'."\n";
     $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);      $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',4);
     $Str .= '</td>';      $Str .= '</td>';
     #      #
     $Str .= '<td align="center">';      $Str .= '<td align="center">';
     $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);      $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,4);
     $Str .= '</td>';      $Str .= '</td>';
       #
     $Str .= '</tr>'."\n";      $Str .= '</tr>'."\n";
     $Str .= '</table>'."\n";      $Str .= '</table>'."\n";
     #      #
Removed from v.1.15  
changed lines
  Added in v.1.16

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