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

Diff for /loncom/xml/lontexconvert.pm between versions 1.94 and 1.97

version 1.94, 2009/01/02 01:22:33 version 1.97, 2009/08/12 20:31:08
Line 262  sub mimetex_valign { Line 262  sub mimetex_valign {
                                         Proto    => 'tcp');                                          Proto    => 'tcp');
     }      }
     if ($socket) {      if ($socket) {
         my $headreq = "HEAD $path HTTP/1.0 User-Agent: Mozilla/5.0 \r\n\r\n";          my $headreq = "HEAD $path HTTP/1.0\r\n\r\n";
         print $socket $headreq;          print $socket $headreq;
         while (<$socket>) {          while (<$socket>) {
             if (/Vertical\-Align\:\s*?([\-\d]+)/) {              if (/Vertical\-Align\:\s*?([\-\d]+)/) {
Line 282  sub mimetex_valign { Line 282  sub mimetex_valign {
   
 sub mimetex_converted {  sub mimetex_converted {
     my $texstring=shift;      my $texstring=shift;
   
   # Alt-Argument for screen readers
       my $alt_string=$$texstring;
       $alt_string=~s/\"/\'\'/g;
   
   # Is this displaystyle?
   
     my $displaystyle=&displaystyle($texstring);      my $displaystyle=&displaystyle($texstring);
   
   # Remove math environment delimiters
   
     &clean_out_math_mode($texstring);      &clean_out_math_mode($texstring);
   
     if ($displaystyle) {      if ($displaystyle) {
Line 291  sub mimetex_converted { Line 300  sub mimetex_converted {
     }      }
     my $esc_texstring = &uri_escape($$texstring);      my $esc_texstring = &uri_escape($$texstring);
     my $valign = &mimetex_valign($esc_texstring);      my $valign = &mimetex_valign($esc_texstring);
     my $result='<img src="/cgi-bin/mimetex.cgi?'.$esc_texstring.'" style="vertical-align:'.$valign.'px" alt="$'.$$texstring.'$" />';      my $result='<img src="/cgi-bin/mimetex.cgi?'.$esc_texstring.'" style="vertical-align:'.$valign.'px" alt="'.$alt_string.'" />';
     if ($displaystyle) {      if ($displaystyle) {
  $result='<center>'.$result.'</center>';   $result='<center>'.$result.'</center>';
     }      }
Removed from v.1.94  
changed lines
  Added in v.1.97

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