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

Diff for /loncom/xml/londefdef.pm between versions 1.227 and 1.228

version 1.227, 2004/07/12 17:57:36 version 1.228, 2004/07/14 13:49:09
Line 1803  sub start_table { Line 1803  sub start_table {
  $textwidth=$Apache::londefdef::table[-2]{'TeXlen'}[$Apache::londefdef::table[-2]{'row_number'}][$Apache::londefdef::table[-2]{'counter_columns'}];    $textwidth=$Apache::londefdef::table[-2]{'TeXlen'}[$Apache::londefdef::table[-2]{'row_number'}][$Apache::londefdef::table[-2]{'counter_columns'}]; 
     } else {      } else {
               #try to use all space not used before (minus 5% for LaTeX table internal) - rather silly                #try to use all space not used before (minus 5% for LaTeX table internal) - rather silly
  my $textwidth=$Apache::londefdef::table[-2]{'width'};   $textwidth=$Apache::londefdef::table[-2]{'width'};
  for (my $i=0;$i<$Apache::londefdef::table[-2]{'counter_columns'};$i++) {   for (my $i=0;$i<$Apache::londefdef::table[-2]{'counter_columns'};$i++) {
     $textwidth=$textwidth-$Apache::londefdef::table[-2]{'TeXlen'}[0][$i];      $textwidth=$textwidth-$Apache::londefdef::table[-2]{'TeXlen'}[0][$i];
  }   }
Line 1874  sub end_table { Line 1874  sub end_table {
  }   }
         #free space and number of empty columns          #free space and number of empty columns
  my ($available_space,$empty_columns)=($Apache::londefdef::table[-1]{'width'},0);   my ($available_space,$empty_columns)=($Apache::londefdef::table[-1]{'width'},0);
 ## &Apache::lonnet::logthis("Available space $Apache::londefdef::table[-1]{'width'}");   if ($#Apache::londefdef::table ne 0) {$available_space=0.9*$available_space;} 
  for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) {   for (my $jn=0;$jn<=$Apache::londefdef::table[-1]{'counter_columns'};$jn++) {
     if ($Apache::londefdef::table[-1]{'TeXlen'}[0][$jn]==0) {      if ($Apache::londefdef::table[-1]{'TeXlen'}[0][$jn]==0) {
  $empty_columns++;   $empty_columns++;
Line 2013  sub end_table { Line 2013  sub end_table {
  for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {   for (my $in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
     for (my $jn=0;$jn<=$#fwidth;$jn++) {      for (my $jn=0;$jn<=$#fwidth;$jn++) {
  if ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'c') {   if ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'c') {
     $output.='\begin{center}';      $output.='\vspace*{-6 mm}\begin{center}';
  } elsif ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'r') {   } elsif ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'r') {
     $output.=' \hfill \llap{'      $output.=' \hfill \llap{'
  }   }
  $output.=$Apache::londefdef::table[-1]{'content'}[$in][$jn];   $output.=$Apache::londefdef::table[-1]{'content'}[$in][$jn];
  if ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'c') {   if ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'c') {
     $output.='\end{center}';      $output.='\end{center}\vspace*{-6 mm}';
  } elsif ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'r') {   } elsif ($Apache::londefdef::table[-1]{'align'}[$in][$jn] eq 'r') {
     $output.='} ';      $output.='} ';
  }   }
Line 2177  sub end_td_tex { Line 2177  sub end_td_tex {
  $current_length=2.5*&LATEX_length($data);   $current_length=2.5*&LATEX_length($data);
                     my @words=split(/ /,$data);                      my @words=split(/ /,$data);
     foreach my $word (@words) {      foreach my $word (@words) {
  my $lengthword=2.5*&LATEX_length($word);   my $lengthword=2*&LATEX_length($word);
  if ($min_length<$lengthword) {$min_length=$lengthword;}   if ($min_length<$lengthword) {$min_length=$lengthword;}
     }      }
     }      }
Removed from v.1.227  
changed lines
  Added in v.1.228

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