|
version 1.76, 2001/05/15 20:50:03
|
version 1.77, 2001/05/25 14:02:10
|
|
Line 168 sub xmlparse {
|
Line 168 sub xmlparse {
|
| my $safehole = new Safe::Hole; |
my $safehole = new Safe::Hole; |
| $safeeval->permit("entereval"); |
$safeeval->permit("entereval"); |
| $safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
| |
$safeeval->permit("sort"); |
| $safeeval->deny(":base_io"); |
$safeeval->deny(":base_io"); |
| $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); |
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); |
| #need to inspect this class of ops |
#need to inspect this class of ops |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml