[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.97 and 1.99

version 1.97, 2005/03/01 00:07:21 version 1.99, 2005/03/04 04:36:35
Line 353  my @Fields = ( Line 353  my @Fields = (
 #             selectable => 'no',  #             selectable => 'no',
 #             defaultselected => 'yes',  #             defaultselected => 'yes',
 #            },  #            },
 ##   weight included for research purposes.  Commented out most of the time.  #
 #           { name => 'weight',  ##   problem weight for instructor
 #             title => 'weight',             { name => 'weight',
 #             align => 'right',               title => 'weight',
 #             color => '#FFFFFF',               align => 'right',
 #             sortable => 'no',               color => '#FFFFFF',
 #             graphable => 'no',               sortable => 'no',
 #             long_title => 'Problem weight (for instructor)',               graphable => 'no',
 #             selectable => 'no',               long_title => 'Problem weight (for instructor)',
 #             defaultselected => 'yes',               selectable => 'no',
 #            },               defaultselected => 'yes',
               },
 );  );
   
 my @SeqFields = (  my @SeqFields = (
Line 712  sub BuildProblemStatisticsPage { Line 713  sub BuildProblemStatisticsPage {
     # it does not slow things down noticably.      # it does not slow things down noticably.
     &Apache::loncoursedata::populate_weight_table();      &Apache::loncoursedata::populate_weight_table();
     #      #
       ($navmap,@sequences) = 
           &Apache::lonstatistics::selected_sequences_with_assessments();
       if (! ref($navmap)) {
           $r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'.
                     '<h3>'.$navmap.'</h3>');
           return;
       }
     if (exists($ENV{'form.Excel'})) {      if (exists($ENV{'form.Excel'})) {
         &Excel_output($r);          &Excel_output($r);
     } else {       } else { 
Line 719  sub BuildProblemStatisticsPage { Line 727  sub BuildProblemStatisticsPage {
                   &mt('Produce Excel Output').'" />'.'&nbsp;'x5);                    &mt('Produce Excel Output').'" />'.'&nbsp;'x5);
         $r->rflush();          $r->rflush();
         my $count = 0;          my $count = 0;
         ($navmap,@sequences) =   
             &Apache::lonstatistics::selected_sequences_with_assessments();  
         if (! ref($navmap)) {  
             $r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'.  
                       '<h3>'.$navmap.'</h3>');  
             return;  
         }  
         foreach my $seq (@sequences) {          foreach my $seq (@sequences) {
             my @resources =               my @resources = 
                 &Apache::lonstathelpers::get_resources($navmap,$seq);                  &Apache::lonstathelpers::get_resources($navmap,$seq);
Line 1598  sub get_statistics { Line 1599  sub get_statistics {
 #        &Apache::lonnet::EXT('resource.'.$part.'.maxtries',$symb);  #        &Apache::lonnet::EXT('resource.'.$part.'.maxtries',$symb);
 #    $data->{'hinttries'} =  #    $data->{'hinttries'} =
 #        &Apache::lonnet::EXT('resource.'.$part.'.hinttries',$symb);  #        &Apache::lonnet::EXT('resource.'.$part.'.hinttries',$symb);
 #    $data->{'weight'} =      $data->{'weight'} =
 #        &Apache::lonnet::EXT('resource.'.$part.'.weight',$symb);          &Apache::lonnet::EXT('resource.'.$part.'.weight',$symb);
 #    $data->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}});  #    $data->{'resptypes'} = join(',',@{$resource->{'partdata'}->{$part}->{'ResponseTypes'}});
     return $data;      return $data;
 }  }
Removed from v.1.97  
changed lines
  Added in v.1.99

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