version 1.423, 2006/10/17 15:11:37
|
version 1.425, 2006/11/10 19:41:34
|
Line 342 sub xmlparse {
|
Line 342 sub xmlparse {
|
my $finaloutput = &inner_xmlparse($target,\@stack,\@parstack,\@pars, |
my $finaloutput = &inner_xmlparse($target,\@stack,\@parstack,\@pars, |
$safeeval,\%style_for_target,1); |
$safeeval,\%style_for_target,1); |
|
|
|
if (@stack) { |
|
&warning("At end of file some tags were still left unclosed, ". |
|
'<tt><'.join('></tt>, <tt><',reverse(@stack)). |
|
'></tt>'); |
|
} |
if ($env{'request.uri'}) { |
if ($env{'request.uri'}) { |
&writeallows($env{'request.uri'}); |
&writeallows($env{'request.uri'}); |
} |
} |
Line 776 sub init_safespace {
|
Line 781 sub init_safespace {
|
$safehole->wrap(\&Apache::inputtags::finalizeawards,$safeeval,'&LONCAPA_INTERNAL_FINALIZEAWARDS'); |
$safehole->wrap(\&Apache::inputtags::finalizeawards,$safeeval,'&LONCAPA_INTERNAL_FINALIZEAWARDS'); |
$safehole->wrap(\&Apache::caparesponse::get_sigrange,$safeeval,'&LONCAPA_INTERNAL_get_sigrange'); |
$safehole->wrap(\&Apache::caparesponse::get_sigrange,$safeeval,'&LONCAPA_INTERNAL_get_sigrange'); |
use Data::Dumper; |
use Data::Dumper; |
$safehole->wrap(\&Data::Dumper::Dumper,$safeeval,'&Dumper'); |
$safehole->wrap(\&Data::Dumper::Dumper,$safeeval,'&LONCAPA_INTERNAL_Dumper'); |
#need to inspect this class of ops |
#need to inspect this class of ops |
# $safeeval->deny(":base_orig"); |
# $safeeval->deny(":base_orig"); |
$safeeval->permit("require"); |
$safeeval->permit("require"); |