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

Diff for /loncom/interface/statistics/lonstudentassessment.pm between versions 1.91 and 1.94

version 1.91, 2004/02/18 15:43:00 version 1.94, 2004/02/26 18:28:33
Line 306  the chart page. Line 306  the chart page.
 #######################################################  #######################################################
 sub CreateInterface {  sub CreateInterface {
     my $Str = '';      my $Str = '';
       $Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,&mt('Chart'));
 #    $Str .= &CreateLegend();  #    $Str .= &CreateLegend();
     $Str .= '<table cellspacing="5">'."\n";      $Str .= '<table cellspacing="5">'."\n";
     $Str .= '<tr>';      $Str .= '<tr>';
Line 642  sub html_initialize { Line 643  sub html_initialize {
             # Use 3 digits for the total              # Use 3 digits for the total
             $sequence->{'width_sum'}+=3;              $sequence->{'width_sum'}+=3;
         }          }
    #
         if ($chosen_output->{'every_problem'}) {          if ($chosen_output->{'every_problem'}) {
             # one problem per digit              # one problem per digit
             $sequence->{'width_problem'} = $sequence->{'num_assess_parts'};              $sequence->{'width_problem'} = $sequence->{'num_assess_parts'};
Line 650  sub html_initialize { Line 652  sub html_initialize {
         }          }
         $sequence->{'width_total'} = $sequence->{'width_problem'} +           $sequence->{'width_total'} = $sequence->{'width_problem'} + 
                                      $sequence->{'width_sum'};                                       $sequence->{'width_sum'};
         if ($sequence->{'width_total'} < length($sequence->{'title'})) {          if ($sequence->{'width_total'} < length(&HTML::Entities::decode($sequence->{'title'}))) {
             $sequence->{'width_total'} = length($sequence->{'title'});              $sequence->{'width_total'} = length(&HTML::Entities::decode($sequence->{'title'}));
             $sequence->{'width_problem'} =   
                 $sequence->{'width_total'} - $sequence->{'width_sum'};  
         }          }
         #          #
         # Output the sequence titles          # Output the sequence titles
Line 727  sub html_outputstudent { Line 727  sub html_outputstudent {
         #          #
         if (! $chosen_output->{'every_problem'}) {          if (! $chosen_output->{'every_problem'}) {
             $performance = '';              $performance = '';
       $performance_length=0;
         }          }
         $performance .= ' 'x($seq->{'width_problem'}-$performance_length).          $performance .= ' 'x($seq->{'width_total'}-$performance_length-$seq->{'width_sum'}).
             $ratio;              $ratio;
         #          #
         $Str .= $performance.$padding;          $Str .= $performance.$padding;
Removed from v.1.91  
changed lines
  Added in v.1.94

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