loncom/xml/lontexconvert.pm - diff

Return to lontexconvert.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lontexconvert.pm between versions 1.66 and 1.67

-version 1.66, 2005/06/09 02:17:11
+version 1.67, 2005/07/05 18:59:03
  Line 165  sub jsMath_converted {
      my $tag='span';
      if (&displaystyle($texstring)) { $tag='div'; }
      &clean_out_math_mode($texstring);
-     return '<'.$tag.' class="math">'.$$texstring.'</'.$tag.'>';
+     return &jsMath_header().
+ 	'<'.$tag.' class="math">'.$$texstring.'</'.$tag.'>';
+ }
+ {
+     my $jsMath_sent_header;
+     sub jsMath_reset {
+ 	$jsMath_sent_header=0;
+     }
+     sub jsMath_header {
+ 	return '' if $jsMath_sent_header;
+ 	$jsMath_sent_header=1;
+ 	return
+             '<script type="text/javascript">
+                      function NoFontMessage () {}
+                    </script>'."\n".
+ 	    '<script src="/adm/jsMath/jsMath.js"></script>'."\n";
+     }
+     sub jsMath_process {
+ 	return '' if !$jsMath_sent_header;
+ 	return '<script type="text/javascript">jsMath.Process()</script>';
+     }
  }
  sub mimetex_converted {
- Line 185  sub mimetex_converted {
+ Line 206  sub mimetex_converted {
  }
  sub converted {
-     if ($env{'environment.texengine'} eq 'tth') {
+     my ($string,$mode)=@_;
- 	return &tth_converted;
+     if ($mode eq '') { $mode=$env{'environment.texengine'}; }
-     } elsif ($env{'environment.texengine'} eq 'jsMath') {
+     if ($mode eq 'tth') {
- 	return &jsMath_converted;
+ 	return &tth_converted($string);
-     } elsif ($env{'environment.texengine'} eq 'mimetex') {
+     } elsif ($mode eq 'jsMath') {
- 	return &mimetex_converted;
+ 	return &jsMath_converted($string);
+     } elsif ($mode eq 'mimetex') {
+ 	return &mimetex_converted($string);
      }
-     return &tth_converted;
+     return &tth_converted($string);
  }
  # ====================================================================== Footer

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

Removed from v.1.66
changed lines
	Added in v.1.67