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)) { |