[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.74 and 1.75

version 1.74, 2004/03/29 15:58:33 version 1.75, 2004/03/29 18:22:28
Line 310  sub BuildProblemStatisticsPage { Line 310  sub BuildProblemStatisticsPage {
     # This probably does not need to be done each time we are called, but      # This probably does not need to be done each time we are called, but
     # it does not slow things down noticably.      # it does not slow things down noticably.
     &Apache::loncoursedata::populate_weight_table();      &Apache::loncoursedata::populate_weight_table();
       #
     if (exists($ENV{'form.Excel'})) {      if (exists($ENV{'form.Excel'})) {
         &Excel_output($r);          &Excel_output($r);
     } else {      } else {
           my $count = 0;
           foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
               $count += $seq->{'num_assess'};
           }
           if ($count > 10) {
               $r->print('<h2>'.
                         &mt('Compiling statistics for [_1] problems',$count).
                         '</h2>');
               if ($count > 30) {
                   $r->print('<h3>'.&mt('This will take some time.').'</h3>');
               }
               $r->rflush();
           }
           #
         my $sortby = $ENV{'form.sortby'};          my $sortby = $ENV{'form.sortby'};
         $sortby = 'container' if (! defined($sortby) || $sortby =~ /^\s*$/);          $sortby = 'container' if (! defined($sortby) || $sortby =~ /^\s*$/);
         my $plot = $ENV{'form.plot'};          my $plot = $ENV{'form.plot'};
         &Apache::lonnet::logthis('form.plot = '.$plot);          if ($plot eq '' || $plot eq 'none') {
               undef($plot);
           }
         if ($sortby eq 'container' && ! defined($plot)) {          if ($sortby eq 'container' && ! defined($plot)) {
             &output_html_by_sequence($r);              &output_html_by_sequence($r);
         } else {          } else {
             if (defined($plot)) {              if (defined($plot)) {
                 &Apache::lonnet::logthis('calling plot routine');  
                 &make_plot($r,$plot);                  &make_plot($r,$plot);
             }              }
             &output_html_stats($r);              &output_html_stats($r);
Line 385  sub output_html_stats { Line 401  sub output_html_stats {
     return;      return;
 }  }
   
   
 sub html_preamble {  sub html_preamble {
     my $Str='';      my $Str='';
     $Str .= "<h2>".      $Str .= "<h2>".
Removed from v.1.74  
changed lines
  Added in v.1.75

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