[BACK]Return to lonxml.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.495 and 1.498

version 1.495, 2009/05/28 11:31:03 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 &quot;[_1]&quot; 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;
Line 1798  ENDNOTFOUND Line 1800  ENDNOTFOUND
                 if ($env{'environment.remote'} eq 'off') {                  if ($env{'environment.remote'} eq 'off') {
                     my $brcrum;                      my $brcrum;
                     if ($env{'request.state'} eq 'construct') {                      if ($env{'request.state'} eq 'construct') {
                         $brcrum = [{'href' => '', # FIXME Add link to /priv/[user]                          $brcrum = [{'href' => &Apache::loncommon::authorspace(),
                                     'text' => 'Construction Space'},                                      'text' => 'Construction Space'},
                                    {'href' => '',                                     {'href' => '',
                                     'text' => 'Editor'}];                                      'text' => 'Editor'}];
Line 1837  ENDNOTFOUND Line 1839  ENDNOTFOUND
                     'onload'       => $add_to_onload,   });                      'onload'       => $add_to_onload,   });
   
          $options{'bread_crumbs'} = [{           $options{'bread_crumbs'} = [{
                         'href' => '', # FIXME Add link to /priv/[user]                          'href' => &Apache::loncommon::authorspace(),
                         'text' => 'Construction Space'},                          'text' => 'Construction Space'},
                        {'href' => '',                         {'href' => '',
                         'text' => 'HTML Editor'}];                          'text' => 'HTML Editor'}];
Removed from v.1.495  
changed lines
  Added in v.1.498

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>