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

[albertel]

albertel		Fri Sep 29 16:36:48 2006 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - making some debug tools available n the safe spaceto safe space
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.419 loncom/xml/lonxml.pm:1.420
--- loncom/xml/lonxml.pm:1.419	Tue Sep 26 00:26:15 2006
+++ loncom/xml/lonxml.pm	Fri Sep 29 16:36:45 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.419 2006/09/26 04:26:15 albertel Exp $
+# $Id: lonxml.pm,v 1.420 2006/09/29 20:36:45 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -772,8 +772,11 @@
   $safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_seed');
   $safehole->wrap(\&Apache::lonxml::error,$safeeval,'&LONCAPA_INTERNAL_ERROR');
   $safehole->wrap(\&Apache::lonxml::debug,$safeeval,'&LONCAPA_INTERNAL_DEBUG');
+  $safehole->wrap(\&Apache::lonnet::logthis,$safeeval,'&LONCAPA_INTERNAL_LOGTHIS');
+  $safehole->wrap(\&Apache::inputtags::finalizeawards,$safeeval,'&LONCAPA_INTERNAL_FINALIZEAWARDS');
   $safehole->wrap(\&Apache::caparesponse::get_sigrange,$safeeval,'&LONCAPA_INTERNAL_get_sigrange');
-
+  use Data::Dumper;
+  $safehole->wrap(\&Data::Dumper::Dumper,$safeeval,'&Dumper');
 #need to inspect this class of ops
 # $safeeval->deny(":base_orig");
   $safeeval->permit("require");