--- loncom/xml/londefdef.pm	2003/11/15 12:46:41	1.191
+++ loncom/xml/londefdef.pm	2004/01/28 17:16:27	1.194
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.191 2003/11/15 12:46:41 albertel Exp $
+# $Id: londefdef.pm,v 1.194 2004/01/28 17:16:27 albertel Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -84,8 +84,7 @@ sub end_output {
 sub start_m {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
     my $currentstring = '';
-    my $inside = &Apache::lonxml::get_all_text("/m",$parser,$style);
-    $inside=~s-<LONCAPA_INTERNAL_TURN_STYLE_ON />--g;
+    my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
     if ($target eq 'web' || $target eq 'analyze') {
 	$Apache::lonxml::prevent_entity_encode++;
 	$inside ='\\documentstyle{article}'.$inside;
@@ -152,21 +151,8 @@ sub end_tthoption {
 sub start_html {
     my ($target,$token) = @_;
     my $currentstring = '';
-    if ($ENV{'browser.mathml'}) {
-	&tth::ttminit();
-	if ($ENV{'browser.unicode'}) {
-	    &tth::ttmoptions('-L -u1');
-	} else {
-	    &tth::ttmoptions('-L -u0');
-	}
-    } else {
-	&tth::tthinit();
-	if ($ENV{'browser.unicode'}) {
-	    &tth::tthoptions('-L -u1');
-	} else {
-	    &tth::tthoptions('-L -u0');
-	}
-    }
+    my $options=$ENV{'course.'.$ENV{'request.course.id'}.'.tthoptions'};
+    &init_tth();
     if ($target eq 'web' || $target eq 'edit') {
 	$currentstring = &Apache::lonxml::xmlbegin().
 	    &Apache::lonxml::fontsettings();     
@@ -2118,7 +2104,7 @@ sub start_img {
 	$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
 	&image_replication($src);
 	#if original gif/jpg/png file exist do following:
-	if (-e $src) {          
+	if (-e $src) {
 	    #defines the default size of image
 	    my $image = Image::Magick->new;
 	    my $current_figure = $image->Read($src);
@@ -2173,6 +2159,8 @@ sub start_img {
 		    $temp_file = Apache::File->new('>>'.$filename); 
 		    print $temp_file "$src\n";
 		    $newsrc=~s/\/home\/httpd\/html\/res//;
+		    $newsrc=~s/\/home\/([^\/]*)\/public_html\//\/$1\//;
+		    $newsrc=~s/\/\.\//\//;
 		    $newsrc=~s/\/([^\/]+)\.(ps|eps)/\//;
 		    $currentstring .= '\vskip 1 mm \graphicspath{{/home/httpd/prtspool'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
 		}