version 1.530, 2012/04/16 19:46:14
|
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)) { |
Line 1957 sub error {
|
Line 1957 sub error {
|
my @userlist; |
my @userlist; |
foreach (keys %users) { |
foreach (keys %users) { |
my ($user,$domain) = split(/:/, $_); |
my ($user,$domain) = split(/:/, $_); |
push(@userlist,"$user\@$domain"); |
push(@userlist,"$user:$domain"); |
my $key=$declutter.'_'.$user.'_'.$domain; |
my $key=$declutter.'_'.$user.'_'.$domain; |
my %lastnotified=&Apache::lonnet::get('nohist_xmlerrornotifications', |
my %lastnotified=&Apache::lonnet::get('nohist_xmlerrornotifications', |
[$key], |
[$key], |
Line 1980 sub error {
|
Line 1980 sub error {
|
$errormsg=&mt("An error occurred while processing this resource. The instructor has been notified."); |
$errormsg=&mt("An error occurred while processing this resource. The instructor has been notified."); |
} |
} |
} |
} |
push(@Apache::lonxml::error_messages,"<b>$errormsg</b> <br />"); |
push(@Apache::lonxml::error_messages,"<span class=\"LC_warning\">$errormsg</span><br />"); |
} |
} |
} |
} |
|
|