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

Diff for /loncom/xml/lontexconvert.pm between versions 1.78 and 1.82

version 1.78, 2006/09/07 21:51:16 version 1.82, 2007/06/13 00:21:03
Line 151  ENDCONV Line 151  ENDCONV
   
 sub clean_out_math_mode {  sub clean_out_math_mode {
     my ($texstring)=@_;      my ($texstring)=@_;
     $$texstring=~s/(?!\\)\$//g;      $$texstring=~s/(?<!\\)\$//g;
     $$texstring=~s/\\[\)\(\]\[]//g;      $$texstring=~s/\\[\)\(\]\[]//g;
     $$texstring=~s/\\ensuremath//g;      $$texstring=~s/\\ensuremath//g;
     return '';      return '';
Line 184  sub jsMath_converted { Line 184  sub jsMath_converted {
  push(@jsMath_sent_header,0);   push(@jsMath_sent_header,0);
     }      }
     sub jsMath_header {      sub jsMath_header {
    if (!@jsMath_sent_header) {
       &Apache::lonnet::logthis("mismatched calls of jsMath_header and jsMath_process");
       return '';
    }
  return '' if $jsMath_sent_header[-1];   return '' if $jsMath_sent_header[-1];
  $jsMath_sent_header[-1]=1;   $jsMath_sent_header[-1]=1;
  return   return
Line 196  sub jsMath_converted { Line 200  sub jsMath_converted {
     sub jsMath_process {      sub jsMath_process {
  my $state = pop(@jsMath_sent_header);   my $state = pop(@jsMath_sent_header);
  return '' if !$state;   return '' if !$state;
  return '<script type="text/javascript">jsMath.Process()</script>';   return "\n".
       '<script type="text/javascript">jsMath.Process()</script>'."\n";
     }      }
 }  }
   
Line 267  sub smiley { Line 272  sub smiley {
  '\:\-(X|\#)' => 'lipsrsealed',   '\:\-(X|\#)' => 'lipsrsealed',
  '\:\-S' => 'huh');   '\:\-S' => 'huh');
     my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};      my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};
     foreach (keys %smileys) {      foreach my $smiley (keys(%smileys)) {
  $expression=~s/$_/\<img src="$iconpath\/$smileys{$_}.gif" \/\>/gs;    $expression=~s/$smiley/\<img src="$iconpath\/$smileys{$smiley}.gif" \/\>/gs; 
     }      }
     return $expression;      return $expression;
 }  }
Line 279  sub msgtexconverted { Line 284  sub msgtexconverted {
     &init_tth();      &init_tth();
     my $outmessage='';      my $outmessage='';
     my $tex=0;      my $tex=0;
     foreach (split(/(?:\&lt\;|\<)\/*m\s*(?:\&gt\;|\>)/i,$message)) {      foreach my $fragment (split(/(?:\&lt\;|\<)\/*m\s*(?:\&gt\;|\>)/i,$message)) {
  if ($tex) {   if ($tex) {
     if ($email) {      if ($email) {
  $outmessage.='</pre><tt>'.&to_convert($_).'</tt><pre>'; $tex=0;   $outmessage.='</pre><tt>'.&to_convert($fragment).'</tt><pre>';
    $tex=0;
     } else {      } else {
  $outmessage.=&to_convert($_); $tex=0;   $outmessage.=&to_convert($fragment);
    $tex=0;
     }      }
  } else {   } else {
             $outmessage.=&smiley($_); $tex=1;              $outmessage.=&smiley($fragment);
       $tex=1;
  }   }
     }      }
     $message=$outmessage; $outmessage=''; $tex=0;      $message=$outmessage; $outmessage=''; $tex=0;
     foreach (split(/(?:\&lt\;|\<)\/*algebra\s*(?:\&gt\;|\>)/i,$message)) {      foreach my $fragment (split(/(?:\&lt\;|\<)\/*algebra\s*(?:\&gt\;|\>)/i,
    $message)) {
  if ($tex) {   if ($tex) {
     if ($email) {      if ($email) {
  $outmessage.='</pre><tt>'.&algebra($_,'web').'</tt><pre>'; $tex=0;   $outmessage.='</pre><tt>'.&algebra($fragment,'web').'</tt><pre>';
    $tex=0;
     } else {      } else {
  $outmessage.=&algebra($_,'web'); $tex=0;   $outmessage.=&algebra($fragment,'web');
    $tex=0;
     }      }
  } else {   } else {
             $outmessage.=$_; $tex=1;              $outmessage.=$fragment;
       $tex=1;
  }   }
     }      }
     if (wantarray) {      if (wantarray) {
Removed from v.1.78  
changed lines
  Added in v.1.82

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