--- loncom/xml/lonxml.pm 2000/11/07 23:39:07 1.36 +++ loncom/xml/lonxml.pm 2000/11/14 22:24:38 1.38 @@ -60,6 +60,7 @@ sub xmlparse { # $safeeval->deny(":base_orig"); $safeinit .= ';$external::target='.$target.';'; $safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';'; + $safeinit .= &Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_xml.lcpm'); &Apache::run::run($safeinit,$safeeval); #-------------------- Redefinition of the target in the case of compound target @@ -101,7 +102,7 @@ sub xmlparse { # if ($target eq 'meta') {$Apache::lonxml::textredirection = 0;} #clear out any tags that didn't end while ($token->[1] ne $stack[$#stack] - && ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);&Apache::lonxml::debug("Clearing out stack");} + && ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);} if (exists $style_for_target{'/'."$token->[1]"}) {