loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.306, 2004/03/02 22:39:12	version 1.308, 2004/03/04 23:01:31
Line 409 sub latex_special_symbols {	Line 409 sub latex_special_symbols {
$string=~s/\~/\\char126 /g;	$string=~s/\~/\\char126 /g;
#fixup & if it doesn't look like	#fixup & if it doesn't look like
# { or α	# { 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/([^&\\])\#/$1\\#/g;
$string=~s/\#\#/\#\\#/g;	$string=~s/\#\#/\#\\#/g;
$string=~s/(\$\|_\|{\|})/\\$1/g;	$string=~s/(\$\|_\|{\|})/\\$1/g;
Line 751 sub init_safespace {	Line 751 sub init_safespace {
$safehole->wrap(\&Math::Random::random_get_seed,$safeeval,'&random_get_seed');	$safehole->wrap(\&Math::Random::random_get_seed,$safeeval,'&random_get_seed');
$safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_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::error,$safeeval,'&LONCAPA_INTERNAL_ERROR');
$safehole->wrap(\&Apache::lonxml::debug,$safeeval,'&DEBUG');

#need to inspect this class of ops	#need to inspect this class of ops
# $safeeval->deny(":base_orig");	# $safeeval->deny(":base_orig");