version 1.17, 2000/08/08 19:34:29
|
version 1.18, 2000/08/11 14:24:50
|
Line 29 use Apache::scripttag;
|
Line 29 use Apache::scripttag;
|
|
|
sub xmlparse { |
sub xmlparse { |
|
|
my ($target,$content_file_string,%style_for_target) = @_; |
my ($target,$content_file_string,$safeinit,%style_for_target) = @_; |
my @pars = (); |
my @pars = (); |
push (@pars,HTML::TokeParser->new(\$content_file_string)); |
push (@pars,HTML::TokeParser->new(\$content_file_string)); |
my $currentstring = ''; |
my $currentstring = ''; |
Line 39 sub xmlparse {
|
Line 39 sub xmlparse {
|
my $safeeval = new Safe; |
my $safeeval = new Safe; |
$safeeval->permit("entereval"); |
$safeeval->permit("entereval"); |
$safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
|
if ( $safeinit ne '') {&Apache::run::run($safeinit,$safeeval);} |
#-------------------- Redefinition of the target in the case of compound target |
#-------------------- Redefinition of the target in the case of compound target |
|
|
($target, my @tenta) = split('&&',$target); |
($target, my @tenta) = split('&&',$target); |