[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[albertel]

albertel		Thu May  1 11:49:26 2003 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - should fix the escaping of tex in tex sections in style files
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.248 loncom/xml/lonxml.pm:1.249
--- loncom/xml/lonxml.pm:1.248	Fri Apr 11 12:03:26 2003
+++ loncom/xml/lonxml.pm	Thu May  1 11:49:26 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.248 2003/04/11 16:03:26 albertel Exp $
+# $Id: lonxml.pm,v 1.249 2003/05/01 15:49:26 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -560,9 +560,10 @@
 	}
       }
       if (($token->[0] eq 'T') || ($token->[0] eq 'C') || ($token->[0] eq 'D') ) {
-	if ($target eq 'tex') {
-	    $result=&latex_special_symbols($result,$stack,$parstack);
-	}
+	  #Style file definitions should be correct
+	  if ($target eq 'tex' && ($Apache::lonxml::usestyle) {
+	      $result=&latex_special_symbols($result,$stack,$parstack);
+	  }
       }
 
       # Encode any high ASCII characters
@@ -802,6 +803,7 @@
   my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
   $rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name);
   $safeinit .= ';$external::randomseed='.$rndseed.';';
+  &Apache::lonxml::debug("Setting rndseed to $rndseed");
   &Apache::run::run($safeinit,$safeeval);
 }