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

Diff for /loncom/xml/londefdef.pm between versions 1.181 and 1.183

version 1.181, 2003/10/14 14:40:33 version 1.183, 2003/10/20 19:47:23
Line 625  sub start_strong { Line 625  sub start_strong {
 sub end_strong {  sub end_strong {
     my ($target,$token) = @_;      my ($target,$token) = @_;
     my $currentstring = '';      my $currentstring = '';
     if ($target eq 'web') {      if ($target eq 'web') {
   
  $currentstring = $token->[2];        $currentstring = $token->[2];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring = '}';     $currentstring = '}';  
Line 1323  sub start_sub { Line 1322  sub start_sub {
     if ($target eq 'web') {      if ($target eq 'web') {
  $currentstring .= $token->[4];   $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "\$_{ ";   $currentstring .= "\$_{";
     }       } 
     return $currentstring;      return $currentstring;
 }  }
Line 1334  sub end_sub { Line 1333  sub end_sub {
     if ($target eq 'web') {      if ($target eq 'web') {
  $currentstring .= $token->[2];   $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= " }\$";   $currentstring .= "}\$";
     }      }
     return $currentstring;      return $currentstring;
 }  }
Line 1346  sub start_sup { Line 1345  sub start_sup {
     if ($target eq 'web') {      if ($target eq 'web') {
  $currentstring .= $token->[4];   $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "\$^{ ";   $currentstring .= "\$^{";
     }       } 
     return $currentstring;      return $currentstring;
 }  }
Line 1357  sub end_sup { Line 1356  sub end_sup {
     if ($target eq 'web') {      if ($target eq 'web') {
  $currentstring .= $token->[2];   $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= " }\$";   $currentstring .= "}\$";
     }      }
     return $currentstring;      return $currentstring;
 }  }
Line 1998  sub end_td_tex { Line 1997  sub end_td_tex {
     $elementdata=~s/^\s+(\S.*)/$1/;       $elementdata=~s/^\s+(\S.*)/$1/; 
     $elementdata=~s/(.*\S)\s+$/$1/;      $elementdata=~s/(.*\S)\s+$/$1/;
     $elementdata=~s/(\s)+/$1/;      $elementdata=~s/(\s)+/$1/;
   
     my $lengthnewdata=1.8*length($elementdata);      my $lengthnewdata=1.8*length($elementdata);
     if ($lengthnewdata>$current_length) {$current_length=$lengthnewdata;}      if ($lengthnewdata>$current_length) {$current_length=$lengthnewdata;}
  }   }
     } else {      } else {
  $current_length=1.8*length($data);   my $working_data=$data;
    $working_data=~s/(\$\_\{|\$\_|\$\^{|\$\^|\}\$|\$)//g;
    $working_data=~s/\\cdot/ /;
    $current_length=1.8*length($working_data);
     }      }
     $Apache::londefdef::table[-1]{'length'} .= $current_length.',';      $Apache::londefdef::table[-1]{'length'} .= $current_length.',';
     $Apache::londefdef::table[-1]{'TeXlength'} .= '0,';      $Apache::londefdef::table[-1]{'TeXlength'} .= '0,';
Line 2163  sub start_img { Line 2166  sub start_img {
     my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";      my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";
     $temp_file = Apache::File->new('>>'.$filename);       $temp_file = Apache::File->new('>>'.$filename); 
     print $temp_file "$src\n";      print $temp_file "$src\n";
     $currentstring .= '\vskip 1 mm \graphicspath{{/home/httpd/prtspool/}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';      $newsrc=~s/\/home\/httpd\/html\/res//;
       $newsrc=~s/\/([^\/]+)\.(ps|eps)/\//;
       $currentstring .= '\vskip 1 mm \graphicspath{{/home/httpd/prtspool'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
  }   }
     }      }
  } else {   } else {
Removed from v.1.181  
changed lines
  Added in v.1.183

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