|
version 1.496, 2009/05/28 17:08:43
|
version 1.498, 2009/07/08 17:55:16
|
|
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