|
version 1.494, 2009/04/17 01:00:20
|
version 1.494.4.1, 2009/08/13 04:30:56
|
|
Line 757 sub init_safespace {
|
Line 757 sub init_safespace {
|
| '&maxima_cas_formula_fix'); |
'&maxima_cas_formula_fix'); |
| |
|
| $safehole->wrap(\&Apache::lonr::r_eval,$safeeval,'&r_eval'); |
$safehole->wrap(\&Apache::lonr::r_eval,$safeeval,'&r_eval'); |
| |
$safehole->wrap(\&Apache::lonr::Rentry,$safeeval,'&Rentry'); |
| |
$safehole->wrap(\&Apache::lonr::Rarray,$safeeval,'&Rarray'); |
| $safehole->wrap(\&Apache::lonr::r_check,$safeeval,'&r_check'); |
$safehole->wrap(\&Apache::lonr::r_check,$safeeval,'&r_check'); |
| $safehole->wrap(\&Apache::lonr::r_cas_formula_fix,$safeeval, |
$safehole->wrap(\&Apache::lonr::r_cas_formula_fix,$safeeval, |
| '&r_cas_formula_fix'); |
'&r_cas_formula_fix'); |
|
Line 1041 sub get_id {
|
Line 1043 sub get_id {
|
| my ($parstack,$safeeval)=@_; |
my ($parstack,$safeeval)=@_; |
| my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
| if ($env{'request.state'} eq 'construct' && $id =~ /([._]|[^\w\d\s[:punct:]])/) { |
if ($env{'request.state'} eq 'construct' && $id =~ /([._]|[^\w\d\s[:punct:]])/) { |
| &error(&mt("ID "[_1]" contains invalid characters, IDs are only allowed to contain letters, numbers, spaces and -",'<tt>'.$id.'</tt>')); |
&error(&mt("ID [_1] contains invalid characters, IDs are only allowed to contain letters, numbers, spaces and -",'<tt>'.$id.'</tt>')); |
| } |
} |
| if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; } |
if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; } |
| return $id; |
return $id; |
![[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