[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.92 and 1.96

version 1.92, 2004/07/22 17:33:29 version 1.96, 2005/01/11 19:45:18
Line 231  my @Fields = ( Line 231  my @Fields = (
              selectable => 'yes',               selectable => 'yes',
              defaultselected => 'yes',               defaultselected => 'yes',
            },             },
              { name   => 'tries_per_correct',
                title  => 'tries/correct',
                align  => 'right',
                color  => '#FFDDDD',
                format => '%4.1f',
                sortable  => 'yes',
                graphable => 'yes',
                long_title => 'Tries per Correct Answer',
                selectable => 'yes',
                defaultselected => 'yes',
              },
            { name   => 'num_wrong',             { name   => 'num_wrong',
              title  => '#Wrng',               title  => '#Wrng',
              align  => 'right',               align  => 'right',
Line 238  my @Fields = ( Line 249  my @Fields = (
              format => '%4.1f',               format => '%4.1f',
              sortable  => 'yes',               sortable  => 'yes',
              graphable => 'yes',               graphable => 'yes',
                long_title => 'Number of students whose final answer is wrong',
                selectable => 'yes',
                defaultselected => 'yes',
              },
              { name   => 'per_wrong',
                title  => '%Wrng',
                align  => 'right',
                color  => '#FFDDDD',
                format => '%4.1f',
                sortable  => 'yes',
                graphable => 'yes',
              long_title => 'Percent of students whose final answer is wrong',               long_title => 'Percent of students whose final answer is wrong',
              selectable => 'yes',               selectable => 'yes',
              defaultselected => 'yes',               defaultselected => 'yes',
Line 309  my @Fields = ( Line 331  my @Fields = (
 #             selectable => 'no',  #             selectable => 'no',
 #             defaultselected => 'yes',  #             defaultselected => 'yes',
 #            },  #            },
   ##   maxtries included for research purposes.  Commented out most of the time.
   #           { name => 'maxtries',
   #             title => 'Maxtries',
   #             align => 'left',
   #             color => '#FFFFFF',
   #             sortable => 'no',
   #             graphable => 'no',
   #             long_title => 'Maximum number of tries',
   #             selectable => 'no',
   #             defaultselected => 'yes',
   #            },
   ##   hinttries included for research purposes.  Commented out most of the time.
   #           { name => 'hinttries',
   #             title => 'hinttries',
   #             align => 'left',
   #             color => '#FFFFFF',
   #             sortable => 'no',
   #             graphable => 'no',
   #             long_title => 'Number of tries before a hint appears',
   #             selectable => 'no',
   #             defaultselected => 'yes',
   #            },
   ##   weight included for research purposes.  Commented out most of the time.
   #           { name => 'weight',
   #             title => 'weight',
   #             align => 'right',
   #             color => '#FFFFFF',
   #             sortable => 'no',
   #             graphable => 'no',
   #             long_title => 'Problem weight (for instructor)',
   #             selectable => 'no',
   #             defaultselected => 'yes',
   #            },
 );  );
   
 my @SeqFields = (  my @SeqFields = (
Line 1531  sub get_statistics { Line 1586  sub get_statistics {
         &Apache::lonnet::put('nohist_resevaldata',\%storestats,$dom,$user);          &Apache::lonnet::put('nohist_resevaldata',\%storestats,$dom,$user);
     }      }
     #      #
       $data->{'tries_per_correct'} = $data->{'tries'} / 
           ($data->{'num_solved'}+0.1);
       #
     # Get the due date for research purposes (commented out most of the time)      # Get the due date for research purposes (commented out most of the time)
 #    $data->{'duedate'} =   #    $data->{'duedate'} = 
 #        &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb);  #        &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb);
 #    $data->{'opendate'} =   #    $data->{'opendate'} = 
 #        &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb);  #        &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb);
   #    $data->{'maxtries'} = 
   #        &Apache::lonnet::EXT('resource.'.$part.'.maxtries',$symb);
   #    $data->{'hinttries'} =
   #        &Apache::lonnet::EXT('resource.'.$part.'.hinttries',$symb);
   #    $data->{'weight'} =
   #        &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.92  
changed lines
  Added in v.1.96

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