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

Diff for /loncom/homework/daxepage.pm between versions 1.16 and 1.18

version 1.16, 2024/04/17 14:15:45 version 1.18, 2025/02/21 06:09:37
Line 84  sub handler { Line 84  sub handler {
     if ($is_not_assess) {      if ($is_not_assess) {
         delete($editors{'xml'});          delete($editors{'xml'});
         $editors{'edit'} = 1;          $editors{'edit'} = 1;
           $Apache::lonnet::env{'form.editmode'} = 'daxe';
       } else {
           $Apache::lonnet::env{'form.problemmode'} = 'daxe';
     }      }
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
Line 96  sub handler { Line 99  sub handler {
                                           'edit' => 'Save and Edit',                                            'edit' => 'Save and Edit',
                                           'disc' => 'Discard and View',                                            'disc' => 'Discard and View',
                                           'save' => 'Save and View',                                            'save' => 'Save and View',
                                             'daxe' => 'Daxe Editor',
                                         );                                          );
     my $name = $uri;      my $name = $uri;
     $name =~ s/^.*\/([^\/]+)$/$1/;      $name =~ s/^.*\/([^\/]+)$/$1/;
Line 124  sub handler { Line 128  sub handler {
     if ($is_assess) {      if ($is_assess) {
         $editheader .= '<input type="hidden" name="problemmode" value="daxe" />'."\n";          $editheader .= '<input type="hidden" name="problemmode" value="daxe" />'."\n";
     }      }
     $editheader .= '<div class="LC_edit_problem_editxml_header">'."\n";      $editheader .= '<div class="LC_edit_problem_daxe_header">'."\n";
     my $saveeditbutton = '<input type="button" name="submitmode" accesskey="s" value="'.$lt{'edit'}.      my $saveeditbutton = '<input type="button" name="submitmode" accesskey="s" value="'.$lt{'edit'}.
                      '" onclick="'.$clickedit.'" />'."\n";                       '" onclick="'.$clickedit.'" />'."\n";
     my $exitbutton = '<input type="button" name="submitmode" accesskey="d" value="'.$lt{'disc'}.      my $exitbutton = '<input type="button" name="submitmode" accesskey="d" value="'.$lt{'disc'}.
                      '" onclick="'.$clickexit.'" />'."\n";                       '" onclick="'.$clickexit.'" />'."\n";
     my $saveexitbutton = '<input type="button" name="submitmode" accesskey="v" value="'.$lt{'save'}.      my $saveexitbutton = '<input type="button" name="submitmode" accesskey="v" value="'.$lt{'save'}.
                      '" onclick="'.$clicksave.'" />'."\n";                       '" onclick="'.$clicksave.'" />'."\n";
     $editheader .= '<table class="LC_edit_problem_header_title"><tr><td>'.      $editheader .= '<div class="LC_landmark" style="clear:both;">'.
                    $uri.'</td><td align="right"><span class="LC_nobreak">'.                     '<div class="LC_floatleft LC_landmark" style="margin-top: 2px">'.$uri.'</div>'.
                      '<div class="LC_floatright LC_landmark"><span class="LC_nobreak">'.
                    $saveeditbutton.$saveexitbutton.$exitbutton.'</span>';                     $saveeditbutton.$saveexitbutton.$exitbutton.'</span>';
     if ($editors{'edit'} || $editors{'xml'}) {      if ($editors{'edit'} || $editors{'xml'}) {
         my $other = (($editors{'edit'} && $editors{'xml'})? $lt{'oeds'} : $lt{'othe'});          my $other = (($editors{'edit'} && $editors{'xml'})? $lt{'oeds'} : $lt{'othe'});
         $editheader .= '&nbsp;&nbsp;|&nbsp;&nbsp;<span class="LC_nobreak">'.$other.':</span> '.          $editheader .= '&nbsp;&nbsp;|&nbsp;&nbsp;<span class="LC_nobreak">'.$other.':</span> '.
                        '<span class="LC_nobreak">';                         '<span class="LC_nobreak">';
         if ($is_not_assess) {          if ($is_not_assess) {
             $editheader .= '<input type="hidden" name="editmode" value="" />'."\n".              $editheader .= '<input type="hidden" name="editmode" value="daxe" />'."\n".
                            '<input type="button" name="editordefault" value="'.$lt{'text'}.                             '<input type="button" name="editordefault" value="'.$lt{'text'}.
                            '" onclick="javascript:seteditmode(this.form,'."'edit'".');" />'."\n";                             '" onclick="javascript:seteditmode(this.form,'."'edit'".');" />'."\n";
         } else {          } else {
Line 154  sub handler { Line 159  sub handler {
         }          }
         $editheader .= '</span>';          $editheader .= '</span>';
     }      }
     $editheader .= '</td></tr></table></div></form>'."\n";      $editheader .= '</div></div>'.
                      '<div class="LC_landmark" style="clear:both"></div>'.
                      '</div></form>'."\n";
     my $start_collapsed = &collapsible_std_LCmenus();      my $start_collapsed = &collapsible_std_LCmenus();
     my $args = {      my $args = {
                 'collapsible_header' => $editheader,                  'collapsible_header' => $editheader,
Line 172  sub handler { Line 179  sub handler {
     $request->print(<<"ENDFRAME");      $request->print(<<"ENDFRAME");
 $startpage  $startpage
 $script  $script
 <div class="LC_iframecontainer" style="padding-right: 5px">  <div class="LC_iframecontainer" style="padding-right: 5px" role="main">
   <h1 class="LC_visually_hidden">$lt{'daxe'}</h1>
 <iframe src="$dest" id="lcdiframe">$lt{'noif'} $noiframe</iframe>  <iframe src="$dest" id="lcdiframe">$lt{'noif'} $noiframe</iframe>
 </div>  </div>
 $endpage  $endpage
Removed from v.1.16  
changed lines
  Added in v.1.18

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