version 1.456, 2007/09/10 19:46:57
|
version 1.461, 2007/09/12 14:34:52
|
Line 800 sub init_safespace {
|
Line 800 sub init_safespace {
|
$safehole->wrap(\&Math::Random::random_set_seed_from_phrase,$safeeval,'&random_set_seed_from_phrase'); |
$safehole->wrap(\&Math::Random::random_set_seed_from_phrase,$safeeval,'&random_set_seed_from_phrase'); |
$safehole->wrap(\&Math::Random::random_get_seed,$safeeval,'&random_get_seed'); |
$safehole->wrap(\&Math::Random::random_get_seed,$safeeval,'&random_get_seed'); |
$safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_seed'); |
$safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_seed'); |
|
$safehole->wrap(\&Apache::loncommon::languages,$safeeval,'&languages'); |
$safehole->wrap(\&Apache::lonxml::error,$safeeval,'&LONCAPA_INTERNAL_ERROR'); |
$safehole->wrap(\&Apache::lonxml::error,$safeeval,'&LONCAPA_INTERNAL_ERROR'); |
$safehole->wrap(\&Apache::lonxml::debug,$safeeval,'&LONCAPA_INTERNAL_DEBUG'); |
$safehole->wrap(\&Apache::lonxml::debug,$safeeval,'&LONCAPA_INTERNAL_DEBUG'); |
$safehole->wrap(\&Apache::lonnet::logthis,$safeeval,'&LONCAPA_INTERNAL_LOGTHIS'); |
$safehole->wrap(\&Apache::lonnet::logthis,$safeeval,'&LONCAPA_INTERNAL_LOGTHIS'); |
Line 908 sub endredirection {
|
Line 909 sub endredirection {
|
} |
} |
pop @Apache::lonxml::outputstack; |
pop @Apache::lonxml::outputstack; |
} |
} |
|
sub in_redirection { |
|
return ($Apache::lonxml::redirection > 0) |
|
} |
|
|
sub end_tag { |
sub end_tag { |
my ($tagstack,$parstack,$token)=@_; |
my ($tagstack,$parstack,$token)=@_; |
Line 1543 ENDNOTFOUND
|
Line 1547 ENDNOTFOUND
|
['rawmode']); |
['rawmode']); |
if ($env{'form.rawmode'}) { $result = $filecontents; } |
if ($env{'form.rawmode'}) { $result = $filecontents; } |
if ($filetype eq 'sty') { |
if ($filetype eq 'sty') { |
|
my $controls = |
|
($env{'request.state'} eq 'construct') ? &Apache::londefdef::edit_controls() |
|
: ''; |
my %options = ('bgcolor' => '#FFFFFF'); |
my %options = ('bgcolor' => '#FFFFFF'); |
$result = |
$result = |
&Apache::loncommon::start_page(undef,undef,\%options). |
&Apache::loncommon::start_page(undef,undef,\%options). |
&Apache::londefdef::edit_controls(). |
$controls. |
$result. |
$result. |
&Apache::loncommon::end_page(); |
&Apache::loncommon::end_page(); |
} |
} |