--- loncom/xml/lonxml.pm	2000/11/14 22:24:38	1.38
+++ loncom/xml/lonxml.pm	2000/11/22 17:35:13	1.40
@@ -10,6 +10,7 @@ qw(@pwd $outputstack $redirection $textr
 use strict;
 use HTML::TokeParser;
 use Safe;
+use Safe::Hole;
 use Opcode;
 
 sub register {
@@ -53,14 +54,15 @@ sub xmlparse {
  my $result;
 
  my $safeeval = new Safe;
+ my $safehole = new Safe::Hole;
  $safeeval->permit("entereval");
  $safeeval->permit(":base_math");
  $safeeval->deny(":base_io");
+ $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');
 #need to inspect this class of ops
 # $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