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