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

Diff for /loncom/interface/statistics/lonproblemstatistics.pm between versions 1.119 and 1.122.2.1

version 1.119, 2011/01/17 00:19:41 version 1.122.2.1, 2012/05/12 03:17:43
Line 52  package Apache::lonproblemstatistics; Line 52  package Apache::lonproblemstatistics;
 use strict;  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonquickgrades();  
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
 use Apache::loncoursedata;  use Apache::loncoursedata;
 use Apache::lonstatistics;  use Apache::lonstatistics;
Line 644  sub CreateInterface { Line 643  sub CreateInterface {
     $Str .=  &Apache::loncommon::end_data_table_row();      $Str .=  &Apache::loncommon::end_data_table_row();
     $Str .= &Apache::loncommon::end_data_table();      $Str .= &Apache::loncommon::end_data_table();
     #      #
     $Str .= '<p><span class="LC_nobreak">'  
            .&mt('Status: [_1]',  
                     '<input type="text" name="stats_status"'  
                    .' size="60" value="" readonly="readonly" />')  
            .'</span></p>';  
     #  
     $Str .= '</p>';      $Str .= '</p>';
     $Str .= '<input type="submit" name="GenerateStatistics" value="'.      $Str .= '<input type="submit" name="GenerateStatistics" value="'.
         &mt('Generate Statistics').'" />';          &mt('Generate Statistics').'" />';
Line 705  sub BuildProblemStatisticsPage { Line 698  sub BuildProblemStatisticsPage {
     # Finally let the user know we are here      # Finally let the user know we are here
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Overall Problem Statistics',      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Overall Problem Statistics',
                                                 'Statistics_Overall_Key'));                                                  'Statistics_Overall_Key'));
     &Apache::lonquickgrades::startGradeScreen($r,'statistics');  
   
     my $interface = &CreateInterface($r);      my $interface = &CreateInterface($r);
     $r->print($interface);      $r->print($interface);
Line 747  sub BuildProblemStatisticsPage { Line 739  sub BuildProblemStatisticsPage {
         return;          return;
     }      }
     if (exists($env{'form.Excel'})) {      if (exists($env{'form.Excel'})) {
         $r->print('<h4>'.          $r->print('<p>'.
                   &Apache::lonstatistics::section_and_enrollment_description().                    &Apache::lonstatistics::section_and_enrollment_description().
                   '</h4>');                    '</p>');
         &Excel_output($r);          &Excel_output($r);
     } else {      } else {
         $r->print('<input type="submit" name="Excel" value="'.          $r->print('<input type="submit" name="Excel" value="'.
                   &mt('Produce Excel Output').'" />'.'&nbsp;'x5);                    &mt('Produce Excel Output').'" />'.'&nbsp;'x5);
         $r->rflush();          $r->rflush();
         $r->print('<h4>'.          $r->print('<p>'.
                   &Apache::lonstatistics::section_and_enrollment_description().                    &Apache::lonstatistics::section_and_enrollment_description().
                   '</h4>');                    '</p>');
         my $count = 0;          my $count = 0;
         foreach my $seq (@sequences) {          foreach my $seq (@sequences) {
             my @resources =              my @resources =
Line 801  sub output_sequence_statistics { Line 793  sub output_sequence_statistics {
     $r->print('<h2>'.&mt('Sequence Statistics').      $r->print('<h2>'.&mt('Sequence Statistics').
       &Apache::loncommon::help_open_topic('Statistics_Sequence').        &Apache::loncommon::help_open_topic('Statistics_Sequence').
       '</h2>');        '</h2>');
     $r->print('<table border="0"><tr><td bgcolor="#777777">'."\n".      $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row());
               '<table border="0" cellpadding="3">'."\n".  
               '<tr bgcolor="#FFFFE6">');  
     $r->print(&sequence_html_header());      $r->print(&sequence_html_header());
       $r->print(&Apache::loncommon::end_data_table_header_row());
     foreach my $seq (@sequences) {      foreach my $seq (@sequences) {
         last if ($c->aborted);          last if ($c->aborted);
         &compute_sequence_statistics($seq);          &compute_sequence_statistics($seq);
         $r->print(&sequence_html_output($seq));          $r->print(&sequence_html_output($seq));
     }      }
     $r->print('</table>');      $r->print(&Apache::loncommon::end_data_table());
     $r->print('</table>');  
     $r->rflush();      $r->rflush();
     return;      return;
 }  }
Line 827  sub output_sequence_statistics { Line 817  sub output_sequence_statistics {
 sub output_html_by_sequence {  sub output_html_by_sequence {
     my ($r) = @_;      my ($r) = @_;
     my $c = $r->connection();      my $c = $r->connection();
     $r->print(&html_preamble());      $r->print('<br>'.&html_preamble());
     #      #
     foreach my $seq (@sequences) {      foreach my $seq (@sequences) {
         last if ($c->aborted);          last if ($c->aborted);
         $r->print("<h3>".$seq->compTitle."</h3>".          $r->print("<h3>".$seq->compTitle."</h3>".
                   '<table border="0"><tr><td bgcolor="#777777">'."\n".                      &Apache::loncommon::start_data_table().
                   '<table border="0" cellpadding="3">'."\n".                      &Apache::loncommon::start_data_table_header_row().
                   '<tr bgcolor="#FFFFE6">'.                      &statistics_table_header('no container').
                   &statistics_table_header('no container')."</tr>\n");                      &Apache::loncommon::end_data_table_header_row()."\n");
         my @Data = &compute_statistics_on_sequence($seq);          my @Data = &compute_statistics_on_sequence($seq);
         foreach my $data (@Data) {          foreach my $data (@Data) {
             $r->print('<tr>'.&statistics_html_table_data($data,              $r->print(&Apache::loncommon::start_data_table_row().
                                                          'no container').                      &statistics_html_table_data($data,'no container').
                       "</tr>\n");                      &Apache::loncommon::end_data_table_row()."\n");
         }          }
         $r->print('</table>'."\n".'</table>'."\n");          $r->print(&Apache::loncommon::end_data_table()."\n");
         $r->rflush();          $r->rflush();
     }      }
     return;      return;
Line 857  sub output_html_stats { Line 847  sub output_html_stats {
     my $count=0;      my $count=0;
     foreach my $data (@StatsArray) {      foreach my $data (@StatsArray) {
         if ($count++ % 50 == 0) {          if ($count++ % 50 == 0) {
             $r->print("</table>\n</table>\n");              $r->print(&Apache::loncommon::end_data_table());
             $r->print('<table border="0"><tr><td bgcolor="#777777">'."\n".              $r->print(&Apache::loncommon::start_data_table().
                       '<table border="0" cellpadding="3">'."\n".                      &Apache::loncommon::start_data_table_row().
                       '<tr bgcolor="#FFFFE6">'.                      &statistics_table_header().
                       '<tr bgcolor="#FFFFE6">'.                      &Apache::loncommon::end_data_table_row());
                       &statistics_table_header().          }
                       "</tr>\n");          $r->print(&Apache::loncommon::start_data_table_row().
         }                  &statistics_html_table_data($data).
         $r->print('<tr>'.&statistics_html_table_data($data)."</tr>\n");                  &Apache::loncommon::end_data_table_row());
     }      }
     $r->print("</table>\n</table>\n");      $r->print(&Apache::loncommon::end_data_table_row());
     return;      return;
 }  }
   
Line 884  sub html_preamble { Line 874  sub html_preamble {
                            &Apache::lonlocal::locallocaltime($endtime)                             &Apache::lonlocal::locallocaltime($endtime)
                            ).'</h3>';                             ).'</h3>';
     }      }
     $Str .= "<h3>".&mt('Compiled on [_1]',      $Str .= "<p>".&mt('Compiled on [_1]',
                        &Apache::lonlocal::locallocaltime(time))."</h3>";                         &Apache::lonlocal::locallocaltime(time))."</p>";
     return $Str;      return $Str;
 }  }
   
Line 903  sub statistics_html_table_data { Line 893  sub statistics_html_table_data {
     foreach my $field (@Fields) {      foreach my $field (@Fields) {
         next if ($options =~ /no $field->{'name'}/);          next if ($options =~ /no $field->{'name'}/);
         next if ($field->{'selected'} ne 'yes');          next if ($field->{'selected'} ne 'yes');
         $row .= '<td bgcolor="'.$field->{'color'}.'"';          $row .= '<td style="background-color:'.$field->{'color'}.'"';
         if (exists($field->{'align'})) {          if (exists($field->{'align'})) {
             $row .= ' align="'.$field->{'align'}.'"';              $row .= ' align="'.$field->{'align'}.'"';
             }              }
Line 1595  sub get_statistics { Line 1585  sub get_statistics {
         $data->{'sections'}=$sections;          $data->{'sections'}=$sections;
         $data->{'course'} = $env{'request.course.id'};          $data->{'course'} = $env{'request.course.id'};
         my $urlres=(&Apache::lonnet::decode_symb($resource->symb))[2];          my $urlres=(&Apache::lonnet::decode_symb($resource->symb))[2];
         $data->{'urlres'}=$urlres;  
         my %storestats =          my %storestats =
             &LONCAPA::lonmetadata::dynamic_metadata_storage($data);              &LONCAPA::lonmetadata::dynamic_metadata_storage($data);
         my ($dom,$user) = ($urlres=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)});          my ($dom,$user) = ($urlres=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)});
Removed from v.1.119  
changed lines
  Added in v.1.122.2.1

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