[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[albertel]

albertel		Mon Jul 19 12:48:28 2004 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - need to allow require because of &xmlparse recursion into run::evaluate
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.330 loncom/xml/lonxml.pm:1.331
--- loncom/xml/lonxml.pm:1.330	Tue Jul 13 15:12:46 2004
+++ loncom/xml/lonxml.pm	Mon Jul 19 12:48:28 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.330 2004/07/13 19:12:46 albertel Exp $
+# $Id: lonxml.pm,v 1.331 2004/07/19 16:48:28 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -746,6 +746,7 @@
 
 #need to inspect this class of ops
 # $safeeval->deny(":base_orig");
+  $safeeval->permit("require");
   $safeinit .= ';$external::target="'.$target.'";';
   my $rndseed;
   my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();