loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.531, 2012/05/08 15:13:58	version 1.533, 2012/11/21 23:13:30
Line 649 sub setup_globals {	Line 649 sub setup_globals {

sub init_safespace {	sub init_safespace {
my ($target,$safeeval,$safehole,$safeinit) = @_;	my ($target,$safeeval,$safehole,$safeinit) = @_;
$safeeval->reval('use Math::Complex;');
$safeeval->reval('use LaTeX::Table;');	$safeeval->reval('use LaTeX::Table;');
$safeeval->deny_only(':dangerous');	$safeeval->deny_only(':dangerous');
	$safeeval->reval('use Math::Complex;');
$safeeval->permit_only(":default");	$safeeval->permit_only(":default");
$safeeval->permit("entereval");	$safeeval->permit("entereval");
$safeeval->permit(":base_math");	$safeeval->permit(":base_math");
Line 1858 sub get_courseupload_hierarchy {	Line 1858 sub get_courseupload_hierarchy {
my ($url) = @_;	my ($url) = @_;
my ($symb,$itemtitle,$displaypath);	my ($symb,$itemtitle,$displaypath);
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$symb = &Apache::lonnet::symbread();	$symb = &Apache::lonnet::symbread($url);
my ($map,$id,$res)=&Apache::lonnet::decode_symb($symb);	my ($map,$id,$res)=&Apache::lonnet::decode_symb($symb);
my $navmap=Apache::lonnavmaps::navmap->new;	my $navmap=Apache::lonnavmaps::navmap->new;
if (ref($navmap)) {	if (ref($navmap)) {