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

Diff for /loncom/interface/lonstatistics.pm between versions 1.62 and 1.63

version 1.62, 2003/02/28 21:19:53 version 1.63, 2003/03/03 19:17:51
Line 235  sub PrepareClasslist { Line 235  sub PrepareClasslist {
     @StudentDataOrder = qw/fullname username domain id section status/;      @StudentDataOrder = qw/fullname username domain id section status/;
     foreach my $field (@StudentDataOrder) {      foreach my $field (@StudentDataOrder) {
         $StudentData{$field}->{'title'} = $field;          $StudentData{$field}->{'title'} = $field;
         $StudentData{$field}->{'base_width'} =           $StudentData{$field}->{'base_width'} = length($field);
                                scalar (my @Tmp = split(//,$field));  
         $StudentData{$field}->{'width'} =           $StudentData{$field}->{'width'} = 
                                $StudentData{$field}->{'base_width'};                                 $StudentData{$field}->{'base_width'};
     }      }
Line 251  sub PrepareClasslist { Line 250  sub PrepareClasslist {
             $studenthash->{$field}=$student_data->[$i];              $studenthash->{$field}=$student_data->[$i];
             # Keep track of the width of the fields              # Keep track of the width of the fields
             next if (! exists($StudentData{$field}));              next if (! exists($StudentData{$field}));
             my $length = scalar(my @Tmp1 = split(//,$student_data->[$i]));              my $length = length($student_data->[$i]);
             if ($StudentData{$field}->{'width'} < $length) {              if ($StudentData{$field}->{'width'} < $length) {
                 $StudentData{$field}->{'width'} = $length;                   $StudentData{$field}->{'width'} = $length; 
             }              }
Line 464  sub PrepareCourseData { Line 463  sub PrepareCourseData {
     #      #
     # Compute column widths      # Compute column widths
     foreach my $seq (@Sequences) {      foreach my $seq (@Sequences) {
         my $name_length = scalar(my @Tmp1 = split(//,$seq->{'title'}));          my $name_length = length($seq->{'title'});
         my $num_parts = $seq->{'num_assess_parts'};          my $num_parts = $seq->{'num_assess_parts'};
         #          #
         # The number of columns needed for the summation text:           # The number of columns needed for the summation text: 
         #    " 1/5" = 1+3 columns, " 10/99" = 1+5 columns          #    " 1/5" = 1+3 columns, " 10/99" = 1+5 columns
         my $sum_length = 1+1+2*(scalar(my @Tmp2 = split(//,$num_parts)));          my $sum_length = 1+1+2*(length($num_parts));
         my $num_col = $num_parts+$sum_length;          my $num_col = $num_parts+$sum_length;
         if ($num_col < $name_length) {          if ($num_col < $name_length) {
             $num_col = $name_length;              $num_col = $name_length;
Line 1252  sub CreateMainMenu { Line 1251  sub CreateMainMenu {
     my $Str = '';      my $Str = '';
   
     $Str .= '<table border="0"><tbody><tr>'."\n";      $Str .= '<table border="0"><tbody><tr>'."\n";
     $Str .= '<td></td><td></td>'."\n";      $Str .= '<td></td>'."\n";
     $Str .= '<td align="center"><b>Select a Report</b></td>'."\n";      $Str .= '<td align="center"><b>Select a Report</b></td>'."\n";
     $Str .= '<td align="center"><b>Student Status</b></td></tr>'."\n";      $Str .= '<td align="center"><b>Student Status</b></td></tr>'."\n";
     $Str .= '<tr>'."\n";      $Str .= '<tr>'."\n";
     $Str .= '<td align="center"><input type="submit" name="Refresh" ';      $Str .= '<td align="center"><input type="submit" name="Refresh" ';
     $Str .= 'value="Refresh" /></td>'."\n";      $Str .= 'value="Update Display" /></td>'."\n";
     $Str .= '<td align="center"><input type="submit" name="DownloadAll" ';  
     $Str .= 'value="Update All Student Data" /></td>'."\n";  
     $Str .= '<td align="center">';      $Str .= '<td align="center">';
     $Str .= '<select name="reportSelected" onchange="document.';      $Str .= '<select name="reportSelected" onchange="document.';
     $Str .= 'Statistics.submit()">'."\n";      $Str .= 'Statistics.submit()">'."\n";
Removed from v.1.62  
changed lines
  Added in v.1.63

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