version 1.90, 2002/05/30 13:37:09
|
version 1.91, 2002/06/08 15:27:06
|
Line 122 sub initsheet {
|
Line 122 sub initsheet {
|
$safeeval->permit("sort"); |
$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'); |
$safehole->wrap(\&send_msg, $safeeval,"&send_msg"); |
|
$safehole->wrap(\&send_crit_msg,$safeeval,"&send_crit_msg"); |
|
my $code=<<'ENDDEFS'; |
my $code=<<'ENDDEFS'; |
# ---------------------------------------------------- Inside of the safe space |
# ---------------------------------------------------- Inside of the safe space |
|
|