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

Diff for /loncom/xml/lonxml.pm between versions 1.573 and 1.577

version 1.573, 2024/07/08 01:01:44 version 1.577, 2025/02/19 23:39:38
Line 673  sub init_safespace { Line 673  sub init_safespace {
   $safeeval->reval('use LONCAPA::LCMathComplex;');    $safeeval->reval('use LONCAPA::LCMathComplex;');
   $safeeval->permit_only(":default");    $safeeval->permit_only(":default");
   $safeeval->permit("entereval");    $safeeval->permit("entereval");
     $safeeval->permit("hintseval");
   $safeeval->permit(":base_math");    $safeeval->permit(":base_math");
   $safeeval->permit("sort");    $safeeval->permit("sort");
   $safeeval->permit("time");    $safeeval->permit("time");
Line 1615  FULLPAGE Line 1616  FULLPAGE
  'dv' => 'Discard Edits and View',   'dv' => 'Discard Edits and View',
  'un' => 'Undo',   'un' => 'Undo',
  'ed' => 'Edit',   'ed' => 'Edit',
  'ew' => 'Edit with Daxe');   'ew' => 'Edit with Daxe',
    'er' => 'Editor');
       my $spelllink = &Apache::lonhtmlcommon::spelllink('xmledit','filecont');        my $spelllink = &Apache::lonhtmlcommon::spelllink('xmledit','filecont');
       my $textarea_events = &Apache::edit::element_change_detection();        my $textarea_events = &Apache::edit::element_change_detection();
       my $form_events     = &Apache::edit::form_change_detection();        my $form_events     = &Apache::edit::form_change_detection();
Line 1644  FULLPAGE Line 1646  FULLPAGE
       }        }
       $initialize .= &setmode_javascript();        $initialize .= &setmode_javascript();
       if ($filetype eq 'html') {        if ($filetype eq 'html') {
           my %editors = &Apache::loncommon::permitted_editors();            my %editors = &Apache::loncommon::permitted_editors($uri);
           if ($editors{'daxe'}) {            if ($editors{'daxe'}) {
               $daxebutton = '<input type="button" name="editwithdaxe" accesskey="w" value="'.$lt{'ew'}.'" '.                $daxebutton = '<input type="button" name="editwithdaxe" accesskey="w" value="'.$lt{'ew'}.'" '.
                             $onclick{'daxe'}.' />'."\n";                              $onclick{'daxe'}.' />'."\n";
Line 1671  $initialize Line 1673  $initialize
       $undo $deps_button $daxebutton $dragmath_button $htmlerror        $undo $deps_button $daxebutton $dragmath_button $htmlerror
     </div>      </div>
   </div>    </div>
   <textarea $textarea_events style="width:100%" cols="80" rows="44" name="filecont" id="filecont" $textareaclass>$filecontents</textarea><br />$spelllink    <textarea $textarea_events style="width:100%" cols="80" rows="44" name="filecont" id="filecont" $textareaclass>$filecontents</textarea><br /><label for="filecont" class="LC_visually_hidden">$lt{'er'}</label>$spelllink
   <div id="LC_aftertextarea">    <div id="LC_aftertextarea">
     <br />      <br />
     $titledisplay      $titledisplay
Line 1888  sub handler { Line 1890  sub handler {
     my $result = '';      my $result = '';
     my $filecontents=&Apache::lonnet::getfile($file);      my $filecontents=&Apache::lonnet::getfile($file);
     if ($filecontents eq -1) {      if ($filecontents eq -1) {
  my $start_page=&Apache::loncommon::start_page('File Error');   my ($start_page,$end_page,$errormsg);
  my $end_page=&Apache::loncommon::end_page();   $start_page=&Apache::loncommon::start_page('File Error');
         my $errormsg='<p class="LC_error">'   if ($target eq 'web') {
                     .&mt('File not found: [_1]'      $start_page .= '<div class="LC_landmark" style="clear:both" role="menu">'.
                         ,'<span class="LC_filename">'.$file.'</span>')                     '<h1 class="LC_visually_hidden">'.
                     .'</p>';                     &mt('File not found').'</h1>';
       $end_page = '</div>';
    }
    $end_page .= &Apache::loncommon::end_page();
    $errormsg='<p class="LC_error">'
            .&mt('File not found: [_1]'
                ,'<span class="LC_filename">'.$file.'</span>')
            .'</p>';
  $result=(<<ENDNOTFOUND);   $result=(<<ENDNOTFOUND);
 $start_page  $start_page
 $errormsg  $errormsg
Removed from v.1.573  
changed lines
  Added in v.1.577

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