loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.94, 2004/02/02 21:45:12
+version 1.95, 2004/02/12 16:29:00
  Line 503  sub PrepareCourseData {
      $top_map = $top if (ref($top));
      @Sequences = @{$sequences} if (ref($sequences) eq 'ARRAY');
      @Assessments = @{$assessments} if (ref($assessments) eq 'ARRAY');
-     #
-     # Compute column widths
-     foreach my $seq (@Sequences) {
-         my $name_length = length($seq->{'title'});
-         my $num_parts = $seq->{'num_assess_parts'};
-         #
-         # Use 3 digits for each the sum and total, which means 7 total...
-         my $num_col = $num_parts+7;
-         if ($num_col < $name_length) {
-             $num_col = $name_length;
-         }
-         $seq->{'base_width'} = $name_length;
-         $seq->{'width'} = $num_col;
-     }
      return;
  }