|
version 1.479, 2008/05/29 15:43:01
|
version 1.481, 2008/06/25 12:00:37
|
|
Line 718 sub init_safespace {
|
Line 718 sub init_safespace {
|
| $safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
| $safeeval->permit("sort"); |
$safeeval->permit("sort"); |
| $safeeval->permit("time"); |
$safeeval->permit("time"); |
| |
$safeeval->permit("caller"); |
| $safeeval->deny("rand"); |
$safeeval->deny("rand"); |
| $safeeval->deny("srand"); |
$safeeval->deny("srand"); |
| $safeeval->deny(":base_io"); |
$safeeval->deny(":base_io"); |
|
Line 737 sub init_safespace {
|
Line 738 sub init_safespace {
|
| $safehole->wrap(\&Apache::caparesponse::capa_formula_fix,$safeeval, |
$safehole->wrap(\&Apache::caparesponse::capa_formula_fix,$safeeval, |
| '&capa_formula_fix'); |
'&capa_formula_fix'); |
| |
|
| |
$safehole->wrap(\&Apache::lonlocal::locallocaltime,$safeeval, |
| |
'&locallocaltime'); |
| |
|
| $safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin'); |
$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin'); |
| $safehole->wrap(\&Math::Cephes::acos,$safeeval,'&acos'); |
$safehole->wrap(\&Math::Cephes::acos,$safeeval,'&acos'); |
| $safehole->wrap(\&Math::Cephes::atan,$safeeval,'&atan'); |
$safehole->wrap(\&Math::Cephes::atan,$safeeval,'&atan'); |
|
Line 1080 Optional Arguments:
|
Line 1084 Optional Arguments:
|
| |
|
| sub increment_counter { |
sub increment_counter { |
| my ($increment, $part_response) = @_; |
my ($increment, $part_response) = @_; |
| if ($env{'form.grade_target'} eq 'analyze') { return; } |
if ($env{'form.grade_noincrement'}) { return; } |
| if (!defined($increment) || $increment le 0) { |
if (!defined($increment) || $increment le 0) { |
| $increment = 1; |
$increment = 1; |
| } |
} |
![[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