version 1.89, 2002/05/07 18:10:55
|
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 |
|
|
Line 1312 sub readsheet {
|
Line 1310 sub readsheet {
|
} else { |
} else { |
$fn = $tmphash{'spreadsheet_default_'.$stype}; |
$fn = $tmphash{'spreadsheet_default_'.$stype}; |
} |
} |
|
unless (($fn) && ($fn!~/^error\:/)) { |
|
$fn='default_'.$stype; |
|
} |
$defaultsheets{$cnum.'_'.$cdom.'_'.$stype}=$fn; |
$defaultsheets{$cnum.'_'.$cdom.'_'.$stype}=$fn; |
} |
} |
} |
} |