loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.531.2.11, 2013/09/22 02:41:23	version 1.531.2.13, 2013/12/14 01:22:15
Line 144 $metamode = 0;	Line 144 $metamode = 0;
# turns on and of run::evaluate actually derefencing var refs	# turns on and of run::evaluate actually derefencing var refs
$evaluate = 1;	$evaluate = 1;

# data structure for eidt mode, determines what tags can go into what other tags	# data structure for edit mode, determines what tags can go into what other tags
%insertlist=();	%insertlist=();

# stores the list of active tag namespaces	# stores the list of active tag namespaces
Line 745 sub init_safespace {	Line 745 sub init_safespace {
my ($target,$safeeval,$safehole,$safeinit) = @_;	my ($target,$safeeval,$safehole,$safeinit) = @_;
$safeeval->reval('use LaTeX::Table;');	$safeeval->reval('use LaTeX::Table;');
$safeeval->deny_only(':dangerous');	$safeeval->deny_only(':dangerous');
$safeeval->reval('use Math::Complex;');	$safeeval->reval('use LONCAPA::LCMathComplex;');
$safeeval->permit_only(":default");	$safeeval->permit_only(":default");
$safeeval->permit("entereval");	$safeeval->permit("entereval");
$safeeval->permit(":base_math");	$safeeval->permit(":base_math");
Line 2376 sub description {	Line 2376 sub description {
sub helpinfo {	sub helpinfo {
my ($token)=@_;	my ($token)=@_;
my $tag = &get_tag($token);	my $tag = &get_tag($token);
return ($insertlist{$tag.'.helpfile'}, $insertlist{$tag.'.helpdesc'});	return ($insertlist{$tag.'.helpfile'}, &mt($insertlist{$tag.'.helpdesc'}));
}	}

sub get_tag {	sub get_tag {