loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.330, 2004/07/13 19:12:46	version 1.332, 2004/07/26 16:23:47
Line 400 sub latex_special_symbols {	Line 400 sub latex_special_symbols {
# any & or # leftover should be safe to just escape	# any & or # leftover should be safe to just escape
$string=~s/([^\\]\|^)\&/$1\\\&/g;	$string=~s/([^\\]\|^)\&/$1\\\&/g;
$string=~s/([^\\]\|^)\#/$1\\\#/g;	$string=~s/([^\\]\|^)\#/$1\\\#/g;
	$string=~s/\\|/\$\\mid\$/g;
#single { or } How to escape?	#single { or } How to escape?
}	}
return $string;	return $string;
Line 746 sub init_safespace {	Line 747 sub init_safespace {

#need to inspect this class of ops	#need to inspect this class of ops
# $safeeval->deny(":base_orig");	# $safeeval->deny(":base_orig");
	$safeeval->permit("require");
$safeinit .= ';$external::target="'.$target.'";';	$safeinit .= ';$external::target="'.$target.'";';
my $rndseed;	my $rndseed;
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();	my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();