--- loncom/xml/lonxml.pm 2004/03/02 22:39:12 1.306 +++ loncom/xml/lonxml.pm 2004/03/04 23:01:31 1.308 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.306 2004/03/02 22:39:12 albertel Exp $ +# $Id: lonxml.pm,v 1.308 2004/03/04 23:01:31 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -409,7 +409,7 @@ sub latex_special_symbols { $string=~s/\~/\\char126 /g; #fixup & if it doesn't look like # { or α - $string=~s/(&(?!((\#[0-9]+)|([a-z]+));))/\\$1/gi; + $string=~s/(&(?!((\#[0-9]+)|([a-z][a-z0-9]*));))/\\$1/gi; $string=~s/([^&\\])\#/$1\\#/g; $string=~s/\#\#/\#\\#/g; $string=~s/(\$|_|{|})/\\$1/g; @@ -751,7 +751,6 @@ sub init_safespace { $safehole->wrap(\&Math::Random::random_get_seed,$safeeval,'&random_get_seed'); $safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_seed'); $safehole->wrap(\&Apache::lonxml::error,$safeeval,'&LONCAPA_INTERNAL_ERROR'); - $safehole->wrap(\&Apache::lonxml::debug,$safeeval,'&DEBUG'); #need to inspect this class of ops # $safeeval->deny(":base_orig");