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

Diff for /loncom/xml/londefdef.pm between versions 1.222 and 1.223

version 1.222, 2004/06/17 17:03:00 version 1.223, 2004/07/12 15:46:52
Line 1891  sub end_table { Line 1891  sub end_table {
  }   }
  push @min_len, $localmin;   push @min_len, $localmin;
  push @max_len, $localmax;   push @max_len, $localmax;
    &Apache::lonnet::logthis("TABLEOUTPUT1: $localmin><$localmax<<<");
  }   }
  for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) {   for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) {
     my $localmin=0,;      my $localmin=0,;
Line 1905  sub end_table { Line 1906  sub end_table {
  $min_len[$jn]=0;   $min_len[$jn]=0;
  $max_len[$jn]=0;   $max_len[$jn]=0;
     }      }
       &Apache::lonnet::logthis("TABLEOUTPUT2: $min_len[$jn]><$max_len[$jn]<<<");
  }   }
        #final adjustment of column width         #final adjustment of column width
  my @fwidth=@{$Apache::londefdef::table[-1]{'TeXlen'}[0]};#final width array   my @fwidth=@{$Apache::londefdef::table[-1]{'TeXlen'}[0]};#final width array
Line 1919  sub end_table { Line 1921  sub end_table {
  if ($fwidth[$jn]==0) {   if ($fwidth[$jn]==0) {
     $fwidth[$jn]=$max_len[$jn];      $fwidth[$jn]=$max_len[$jn];
  }   }
    &Apache::lonnet::logthis("TABLEOUTPUT3: $fwidth[$jn]<<<");
     }      }
  } else {   } else {
         #step 2. adjustment by minimum value (estimation)          #step 2. adjustment by minimum value (estimation)
Line 1932  sub end_table { Line 1935  sub end_table {
     if ($fwidth[$jn]==0) {      if ($fwidth[$jn]==0) {
  $fwidth[$jn]=$min_len[$jn];   $fwidth[$jn]=$min_len[$jn];
     }      }
       &Apache::lonnet::logthis("TABLEOUTPUT4: $fwidth[$jn]<<<");
  }   }
     } else {      } else {
       #step 3. adjustment over minimal + corrections        #step 3. adjustment over minimal + corrections
Line 1944  sub end_table { Line 1948  sub end_table {
  $acsessive=$acsessive+$adjust[$jn]-$max_len[$jn];   $acsessive=$acsessive+$adjust[$jn]-$max_len[$jn];
  $adjust[$jn]=0;   $adjust[$jn]=0;
     }      }
       &Apache::lonnet::logthis("TABLEOUTPUT10: $adjust[$jn]<<<");
       &Apache::lonnet::logthis("TABLEOUTPUT10a: $acsessive<<<");
  }   }
  if ($acsessive>0) {   if ($acsessive>0) {
  #we have an excess of space and can redistribute it   #we have an excess of space and can redistribute it
Line 1959  sub end_table { Line 1965  sub end_table {
     $adjust[$jn]+=$per_column;      $adjust[$jn]+=$per_column;
     $fwidth[$jn]=$adjust[$jn];      $fwidth[$jn]=$adjust[$jn];
  }   }
    &Apache::lonnet::logthis("TABLEOUTPUT5: $fwidth[$jn]<<<");
       }
    } else {
       for (my $jn=0;$jn<=$#min_len;$jn++) {
    $fwidth[$jn]=$adjust[$jn];
     }      }
  }   }
     }      }
Removed from v.1.222  
changed lines
  Added in v.1.223

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