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

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

version 1.1, 2015/12/10 16:26:43 version 1.18, 2025/02/21 06:09:37
Line 28 Line 28
 ###  ###
   
 package Apache::daxepage;  package Apache::daxepage;
   use strict;
   
 use Apache::Constants;  use Apache::loncommon();
   use Apache::lonnet();
   use Apache::lonhtmlcommon();
   use Apache::lonxml();
   use Apache::edit();
   use Apache::lonmenu();
   use Apache::lonlocal;
   use Apache::Constants qw(:common);
   use LONCAPA qw(:DEFAULT :match);
   use HTML::Entities();
   
 sub handler {  sub handler {
     my $request = shift;      my $request = shift;
     my $uri = $request->uri;      my $uri = $request->uri;
     $uri =~ s/^\/daxepage//;      $uri =~ s{^/daxepage}{};
     &Apache::loncommon::no_cache($request);      &Apache::loncommon::content_type($request,'text/html');
     if ($uri !~ /\.(task|problem|exam|quiz|assess|survey|library)$/) {      my ($is_not_assess,$is_assess,$is_course_doc,$is_supp,$supp_path,$supp_title);
       if ($uri =~/\.(xml|html|htm|xhtml|xhtm)$/) {
           $is_not_assess = 1;
           if ($Apache::lonnet::env{'request.course.id'}) {
               my $cid = $Apache::lonnet::env{'request.course.id'};
               my $cdom = $Apache::lonnet::env{'course.'.$cid.'.domain'};
               my $cnum = $Apache::lonnet::env{'course.'.$cid.'.num'};
               if ($uri =~ m{^/uploaded/\Q$cdom/$cnum\E/(docs|supplemental)/}) {
                   if ($1 eq 'supplemental') {
                       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                                               ['folderpath','title']);
                       $is_supp = 1;
                       $supp_path = &escape(&HTML::Entities::decode($Apache::lonnet::env{'form.folderpath'}));
                       $supp_title = &escape(&HTML::Entities::decode($Apache::lonnet::env{'form.title'}));
                   }
                   $is_course_doc = 1;
                   $Apache::lonnet::env{'form.forceedit'} = 1;
               }
           }
       } elsif ($uri =~ /$LONCAPA::assess_re/) {
           unless ($uri =~ /\.form$/) {
               $is_assess = 1;
           }
       }
       unless ($is_not_assess || $is_assess) {
         $request->status(406);          $request->status(406);
         return OK;          return OK;
     }      }
     my $result = '';      my %editors = &Apache::loncommon::permitted_editors($uri);
     $result .= "<!DOCTYPE html>\n";      unless ($editors{'daxe'}) {
     $result .= "<html>\n";          my $msg = '<p class="LC_warning">'.
     $result .= "<head>\n";                    &mt('Daxe editor is not enabled for this Authoring Space.').'</p>';
           &do_redirect($request,$uri,$msg);
           return OK;
       }
       if ($is_not_assess) {
           delete($editors{'xml'});
           $editors{'edit'} = 1;
           $Apache::lonnet::env{'form.editmode'} = 'daxe';
       } else {
           $Apache::lonnet::env{'form.problemmode'} = 'daxe';
       }
       &Apache::lonhtmlcommon::clear_breadcrumbs();
       my %lt = &Apache::lonlocal::texthash(
                                             'noif' => 'No iframe support.',
                                             'show' => 'Show content in pop-up window',
                                             'save' => 'Save',
                                             'text' => 'Text Editor',
                                             'oeds' => 'other editors',
                                             'othe' => 'other editor',
                                             'edit' => 'Save and Edit',
                                             'disc' => 'Discard and View',
                                             'save' => 'Save and View',
                                             'daxe' => 'Daxe Editor',
                                           );
     my $name = $uri;      my $name = $uri;
     $name =~ s/^.*\/([^\/]+)$/$1/;      $name =~ s/^.*\/([^\/]+)$/$1/;
     $result .= "  <title>LON-CAPA Daxe: $name</title>\n";      my $lang = &Apache::lonlocal::current_language();
     $result .= '  <script src="/adm/split.js/split.min.js"></script>'."\n";      my $filearg = '/daxeopen'.$uri;
     $result .= '  <link rel="stylesheet" href="/adm/split.js/split.css">'."\n";      my $daxeurl = '/adm/daxe/daxe.html?config=config/loncapa_config.xml&save=/daxesave'.
     $result .= "  <style>\n";                    '&file='.$filearg;
     $result .= "    #daxe, #preview { border: none; }\n";      my $headjs = &Apache::loncommon::iframe_wrapper_headjs().
     $result .= "  </style>\n";                   &listener_js($lang,$filearg,$is_assess).
     $result .= "</head>\n";                   &toggle_LCmenus_js().&saveandview_js().
     $result .= "<body>\n";                   &Apache::edit::js_change_detection();
     $result .= '  <div class="split-parent">'."\n";;  
     my $daxeurl = '/adm/daxe/daxe.html?config=config/loncapa_config.xml&amp;file=/daxeopen'.$uri.      my ($clickexit,$clicksave,$clickedit);
         '&amp;save=/daxesave';      if ($is_assess) {
     $result .= '    <iframe id="daxe" src="'.$daxeurl.'" class="split split-horizontal"></iframe>'."\n";          $headjs .= &Apache::lonxml::setmode_javascript();
     my $previewurl = $uri.'?inhibitmenu=yes';          $clickexit = "javascript:setmode(this.form,'view');";
     $result .= '    <iframe id="preview" src="'.$previewurl.'" class="split split-horizontal"></iframe>'."\n";      } else {
     $result .= "  </div>\n";          $headjs .= &Apache::lonxml::seteditor_javascript($is_course_doc,$is_supp,
     $result .= '  <script>Split(["#daxe", "#preview"], {sizes: [75, 25], minSize: [400, 20]});</script>'."\n";                                                           $supp_path,$supp_title);
     $result .= "</body>\n";          $clickexit = "javascript:seteditmode(this.form,'view');";
     $result .= "</html>\n";      }
     $request->print($result);      $clicksave = "javascript:daxesave('exit');";
       $clickedit = "javascript:daxesave();";
       my $form_events = &Apache::edit::form_change_detection();
       my $editheader = '<form '.$form_events.' method="post" name="daxeedit" action="'.$uri.'">';
       if ($is_assess) {
           $editheader .= '<input type="hidden" name="problemmode" value="daxe" />'."\n";
       }
       $editheader .= '<div class="LC_edit_problem_daxe_header">'."\n";
       my $saveeditbutton = '<input type="button" name="submitmode" accesskey="s" value="'.$lt{'edit'}.
                        '" onclick="'.$clickedit.'" />'."\n";
       my $exitbutton = '<input type="button" name="submitmode" accesskey="d" value="'.$lt{'disc'}.
                        '" onclick="'.$clickexit.'" />'."\n";
       my $saveexitbutton = '<input type="button" name="submitmode" accesskey="v" value="'.$lt{'save'}.
                        '" onclick="'.$clicksave.'" />'."\n";
       $editheader .= '<div class="LC_landmark" style="clear:both;">'.
                      '<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>';
       if ($editors{'edit'} || $editors{'xml'}) {
           my $other = (($editors{'edit'} && $editors{'xml'})? $lt{'oeds'} : $lt{'othe'});
           $editheader .= '&nbsp;&nbsp;|&nbsp;&nbsp;<span class="LC_nobreak">'.$other.':</span> '.
                          '<span class="LC_nobreak">';
           if ($is_not_assess) {
               $editheader .= '<input type="hidden" name="editmode" value="daxe" />'."\n".
                              '<input type="button" name="editordefault" value="'.$lt{'text'}.
                              '" onclick="javascript:seteditmode(this.form,'."'edit'".');" />'."\n";
           } else {
               if ($editors{'edit'}) {
                   $editheader .= '<input type="button" name="submitmode" accesskey="e" value="'.&mt('Edit').'" '.
                                  'onclick="javascript:setmode(this.form,'."'edit'".')" />'."\n";
               }
               if ($editors{'xml'}) {
                   $editheader .= '<input type="button" name="submitmode" accesskey="x" value="'.&mt('EditXML').'" '.
                                  'onclick="javascript:setmode(this.form,'."'editxml'".')" />'."\n";
               }
           }
           $editheader .= '</span>';
       }
       $editheader .= '</div></div>'.
                      '<div class="LC_landmark" style="clear:both"></div>'.
                      '</div></form>'."\n";
       my $start_collapsed = &collapsible_std_LCmenus();
       my $args = {
                   'collapsible_header' => $editheader,
                   'start_collapsed'    => $start_collapsed,
                  };
       my $startpage = &Apache::loncommon::start_page('Daxe: '.$name,$headjs,$args).
                       &Apache::lonmenu::constspaceform();
       my $endpage = &Apache::loncommon::end_page();
   
       # javascript will position the iframe if window was resized (or zoomed)
       my $script = &Apache::loncommon::iframe_wrapper_resizejs();
       my $dest = &HTML::Entities::encode($daxeurl,'&<>"');
       my $noiframe = &Apache::loncommon::modal_link($dest,$lt{'show'},500,400);
   
       $request->print(<<"ENDFRAME");
   $startpage
   $script
   <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>
   </div>
   $endpage
   ENDFRAME
     return OK;      return OK;
 }  }
   
   sub listener_js {
       my ($lang,$filearg,$is_assess) = @_;
       return <<"ENDJS";
   <script type="text/javascript">
   //<![CDATA[
   
   var eventMethod = window.addEventListener ? "addEventListener" : "attachEvent";
   var eventer = window[eventMethod];
   var messageEvent = eventMethod == "attachEvent" ? "onmessage" : "message";
   
   eventer(messageEvent,function(e) {
       var reqdOrigin = window.location.protocol+'//'+window.location.hostname;
       var is_assess = '$is_assess';
       if (e.origin == reqdOrigin) {
           if (e.data == '$filearg') {
               if (is_assess) {
                   setmode(document.daxeedit,'view');
               } else {
                   seteditmode(document.daxeedit,'view');
               }
           } else if ((e.data == 'userlclang') || (e.data == 'userlang')) {
               window.myIframe = document.getElementById("lcdiframe").contentWindow;
               window.myIframe.postMessage(e.data+':$lang',reqdOrigin);
           }
           return;
       }
   },false);
   
   //]]>
   </script>
   ENDJS
   
   }
   
   sub saveandview_js {
       return <<"ENDJS";
   
   <script type="text/javascript">
   //<![CDATA[
   
   function daxesave(exit) {
       window.myIframe = document.getElementById("lcdiframe").contentWindow;
       window.myIframe.focus();
       window.myIframe.savelcdoc(exit);
       return;
   }
   
   //]]>
   </script>
   ENDJS
   }
   
   sub toggle_LCmenus_js {
       my %lt = &Apache::lonlocal::texthash(
                                            altc => 'menu state: collapsed',
                                            alte => 'menu state: explanded',
                                            ttlc => 'display standard menus',
                                            ttle => 'hide standard menus',
       );
       return <<"ENDJS";
   <script type="text/javascript">
   //<![CDATA[
   \$(document).ready (function () {
       \$(".LC_collapse_trigger").on("click", function (e) {
           var id = this.id;
           var \$content = \$(this).next (".LC_menus_content");
           var expanded = \$content.hasClass ("shown");
           if (expanded) {
               \$content.removeClass ("shown");
               \$content.addClass ("hidden");
           } else {
               \$content.removeClass ("hidden");
               \$content.addClass ("shown");
           }
   
           \$(this).find ("[aria-expanded]")
           .attr ("aria-expanded", !expanded);
   
           \$(this).find ("[aria-pressed]")
           .attr ("aria-pressed", !expanded);
   
           \$(this).find (".LC_collapsible_indicator").attr ({
           "src":
           (expanded)? "/res/adm/pages/collapsed.png" : "/res/adm/pages/expanded.png",
           "alt":
           (expanded)? "$lt{altc}" : "$lt{alte}",
           "title":
           (expanded)? "$lt{ttlc}" : "$lt{ttle}"
           });
   
           \$(window).trigger('resize');
           \$(this).focus ();
       });
   
       \$("#LC_expandingContainer").attr ("aria-live", "off");
   });
   //]]>
   </script>
   ENDJS
   
   }
   
   sub do_redirect {
       my ($request,$uri,$msg) = @_;
       &Apache::lonhtmlcommon::clear_breadcrumbs();
       $request->print(
           &Apache::loncommon::start_page('Authoring Space',undef,
                                          {'redirect'       => [2,$uri]}).
   
           '<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n".
           "$msg\n".
           &Apache::loncommon::end_page());
       return;
   }
   
   sub collapsible_std_LCmenus {
       my $daxecollapse = $Apache::lonnet::env{'environment.daxecollapse'};
       unless ($daxecollapse) {
           my %domdefs = &Apache::lonnet::get_domain_defaults($Apache::lonnet::env{'user.domain'});
           if ($domdefs{'daxecollapse'}) {
               $daxecollapse = 'yes';
           }
       }
       if ($daxecollapse eq 'yes') {
           return 1;
       }
       return;
   }
   
 1;  1;
 __END__  __END__
Removed from v.1.1  
changed lines
  Added in v.1.18

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