--- loncom/xml/londefdef.pm	2002/05/15 15:21:21	1.60
+++ loncom/xml/londefdef.pm	2002/05/16 00:56:46	1.61
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.60 2002/05/15 15:21:21 sakharuk Exp $
+# $Id: londefdef.pm,v 1.61 2002/05/16 00:56:46 albertel Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -73,6 +73,7 @@ sub start_m {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
   my $currentstring = '';
   if ($target eq 'web') {
+    $Apache::lonxml::prevent_entity_encode++;
     my $inside = &Apache::lonxml::get_all_text("/m",$$parser[-1]);
     $inside ='\\documentstyle{article}'.$inside;
     &Apache::lonxml::debug("M is starting with:$inside:");
@@ -97,6 +98,7 @@ sub end_m {
   my ($target,$token) = @_;
   my $currentstring = '';
   if ($target eq 'web') {
+    $Apache::lonxml::prevent_entity_encode--;
   } elsif ($target eq 'tex') {
     $currentstring = "";
   } elsif ($target eq 'meta') {
@@ -921,17 +923,21 @@ EDITBUTTON
       }
 #-- <font> tag
          sub start_font {
-	    my ($target,$token) = @_;
+	    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
             my $currentstring = '';
             if ($target eq 'web') {
+	      my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval);
+	      if ($face=~/symbol/i) {$Apache::lonxml::prevent_entity_encode++;}
               $currentstring = $token->[4];     
 	    } 
 	   return $currentstring;
 	}
         sub end_font {
-	    my ($target,$token) = @_;
+	    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
             my $currentstring = '';
             if ($target eq 'web') {
+	      my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval);
+	      if ($face=~/symbol/i) {$Apache::lonxml::prevent_entity_encode--;}
               $currentstring = $token->[2];    
             } 
 	   return $currentstring;