[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.174 and 1.177

version 1.174, 2014/03/28 14:43:26 version 1.177, 2023/04/07 16:46:44
Line 605  sub count_parts { Line 605  sub count_parts {
 sub get_resources {  sub get_resources {
     my ($navmap,$sequence) = @_;      my ($navmap,$sequence) = @_;
     my @resources = $navmap->retrieveResources($sequence,      my @resources = $navmap->retrieveResources($sequence,
                                                sub { shift->is_problem(); },                                                 sub { shift->is_gradable(); },
                                                0,0,0);                                                 0,0,0);
     return @resources;      return @resources;
 }  }
Line 744  NEW_WINDOW_CHECKBOX Line 744  NEW_WINDOW_CHECKBOX
                             length($title)                              length($title)
                             )).$padding;                              )).$padding;
     }      }
     $total_sum_width = length($total_count)+1;      $total_sum_width = length($total_count);
       if ($total_sum_width < 6) {
           $total_sum_width = 6;
       }
     $Str .= "    total</pre>\n";      $Str .= "    total</pre>\n";
     $Str .= "<pre>";      $Str .= "<pre>";
   
Line 938  sub html_outputstudent { Line 941  sub html_outputstudent {
         $score = sprintf("%.2f",$score);          $score = sprintf("%.2f",$score);
         $score = (' 'x(6-length($score))).$score;          $score = (' 'x(6-length($score))).$score;
     }      }
       $max = sprintf("%.2f",$max);
     $Str .= ' '.' 'x($total_sum_width-length($score)).$score.' / '.$max;      $Str .= ' '.' 'x($total_sum_width-length($score)).$score.' / '.$max;
     $Str .= " \n";      $Str .= " \n";
     #      #
Line 2144  sub student_performance_on_sequence { Line 2148  sub student_performance_on_sequence {
     }      }
     if ($randompick) {      if ($randompick) {
         my @uniquetotals = keys(%ptsfreq);          my @uniquetotals = keys(%ptsfreq);
         if ((@uniquetotals = 1) && ($ptsfreq{$uniquetotals[0]} > 0)) {          if ((@uniquetotals == 1) && ($ptsfreq{$uniquetotals[0]} > 0)) {
             $max = $max * $randompick/$ptsfreq{$uniquetotals[0]};              $max = $max * $randompick/$ptsfreq{$uniquetotals[0]};
         }          }
     }      }
Removed from v.1.174  
changed lines
  Added in v.1.177

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