[BACK]Return to lonwrapper.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonwrapper.pm between versions 1.42 and 1.51

version 1.42, 2012/11/27 23:45:15 version 1.51, 2016/02/22 03:36:52
Line 37  use Apache::lonlocal; Line 37  use Apache::lonlocal;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::lonextresedit();  use Apache::lonextresedit();
   use Apache::lonexttool();
   use LONCAPA qw(:DEFAULT :match);;
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
 sub wrapper {  sub wrapper {
     my ($url,$brcrum) = @_;      my ($url,$brcrum,$absolute,$is_ext,$is_pdf,$exttool,$title) = @_;
   
     my $forcereg;      my $forcereg;
     unless ($env{'form.folderpath'}) {      unless ($env{'form.folderpath'}) {
         $forcereg = 1;          $forcereg = 1;
     }      }
       my %lt = &Apache::lonlocal::texthash(
                                             'noif' => 'No iframe support.',
                                             'show' => 'Show content in pop-up window',
                                           );
   
       my $anchor;
       if (($is_ext) && ($env{'form.symb'})) {
           (undef,undef,my $res) = &Apache::lonnet::decode_symb($env{'form.symb'});
           if ($res =~ /(\#.+)$/) {
               $anchor = $1;
           }
       }
   
       my $noiframe = &Apache::loncommon::modal_link($url.$anchor,$lt{'show'},500,400);
     my $args = {'bgcolor' => '#FFFFFF'};      my $args = {'bgcolor' => '#FFFFFF'};
     if ($forcereg) {      if ($forcereg) {
         $args->{'force_register'} = $forcereg;          $args->{'force_register'} = $forcereg;
     }      }
     if (ref($brcrum) eq 'ARRAY') {      if (ref($brcrum) eq 'ARRAY') {
          $args->{'bread_crumbs'} = $brcrum;          $args->{'bread_crumbs'} = $brcrum;
       }
       if ($absolute) {
           $args->{'use_absolute'} = $absolute; 
     }      }
   
     my $startpage =  Apache::loncommon::start_page('Menu',undef,$args);      my $startpage = &Apache::loncommon::start_page('Menu',undef,$args);
     my $endpage =  Apache::loncommon::end_page();      my $endpage = &Apache::loncommon::end_page();
       
     my $script = Apache::lonhtmlcommon::scripttag(<<SCRIPT );      if (($env{'browser.mobile'}) || ($exttool eq 'window')) {
     \$(document).ready( function() {          my $output = $startpage;
         \$(window).unbind('resize').resize(function(){          if ($is_pdf) {
             var header;              if ($title eq '') {
             var offset = 5;                  $title = $env{'form.title'};
             var height = 0;                  if ($title eq '') {
             var hdrtop = 0;                      unless ($env{'request.enc'}) {
             if (\$('div.LC_head_subbox:first').length) {                          ($title) = ($url =~ m{/([^/]+)$});
                 header = \$('div.LC_head_subbox:first');                          $title =~ s/(\?[^\?]+)$//;
                 offset = 9;                      }
             } else {  
                 if (\$('#LC_breadcrumbs').length) {  
                     header = \$('#LC_breadcrumbs');  
                 }                  }
             }              }
             if (header.length) {              unless ($title eq '') {
                 height = header.height();                  $output .= $title.'<br />';
                 hdrtop = header.position().top;  
             }              }
             var pos = height + hdrtop + offset;              $output .= '<a href="'.$url.'">'.&mt('Link to PDF (for mobile devices)').'</a>';
             \$('.LC_iframecontainer').css('top', pos);          } elsif ($exttool eq 'window') {
               $output .= '<div>'.
                          '<a href="'.$url.'" target="LC_LTI" style="padding:0;clear:both;margin:0;border:0">'.
                          &mt('Launch External Tool').'</a>'.
                          '</div>';
           } else {
               $output .= '<div style="overflow:scroll; -webkit-overflow-scrolling:touch;">'."\n".
                          '<iframe src="'.$url.$anchor.'" height="100%" width="100%" frameborder="0">'."\n".
                          "$lt{'noif'} $noiframe\n".
                          "</iframe>\n".
                          "</div>\n";
           }
           $output .= $endpage;
           return $output;
       } else {
           my $script = &Apache::lonhtmlcommon::scripttag(<<SCRIPT);
           \$(document).ready( function() {
               \$(window).unbind('resize').resize(function(){
                   var header;
                   var offset = 5;
                   var height = 0;
                   var hdrtop = 0;
                   if (\$('div.LC_head_subbox:first').length) {
                       header = \$('div.LC_head_subbox:first');
                       offset = 9;
                   } else {
                       if (\$('#LC_breadcrumbs').length) {
                           header = \$('#LC_breadcrumbs');
                       }
                   }
                   if (header.length) {
                       height = header.height();
                       hdrtop = header.position().top;
                   }
                   var pos = height + hdrtop + offset;
                   \$('.LC_iframecontainer').css('top', pos);
               });
         });          });
     });          window.onload = function(){  \$(window).trigger('resize') };
     window.onload = function(){  \$(window).trigger('resize') };   
 SCRIPT  SCRIPT
           # javascript will position the iframe if window was resized (or zoomed)
     # javascript will position the iframe if window was resized (or zoomed)          return <<ENDFRAME;
     return <<ENDFRAME;          $startpage
     $startpage          $script
     $script          <div class="LC_iframecontainer">
     <div class="LC_iframecontainer">              <iframe src="$url$anchor">$lt{'noif'} $noiframe</iframe>
         <iframe src="$url">No iframe support!</iframe>          </div>
     </div>          $endpage
     $endpage  
 ENDFRAME  ENDFRAME
       }
 }  }
   
 sub handler {  sub handler {
Line 103  sub handler { Line 152  sub handler {
     return OK if $r->header_only;      return OK if $r->header_only;
   
     my $url = $r->uri;      my $url = $r->uri;
     my ($is_ext,$brcrum);      my ($is_ext,$brcrum,$absolute,$is_pdf,$exttool,$cdom,$cnum);
   
     for ($url){      for ($url){
         s|^/adm/wrapper||;          s|^/adm/wrapper||;
Line 112  sub handler { Line 161  sub handler {
         s|&colon;|:|g;                        s|&colon;|:|g;              
     }      }
   
     if ($is_ext) {  
       if ($url =~ /\.pdf$/i) {
           $is_pdf = 1;
       } elsif ($url =~ m{^/adm/($match_domain)/($match_courseid)/(\d+)/exttools?$}) {
           $cdom = $1;
           $cnum = $2;
           my $marker = $3;
           $exttool = 'iframe';
           my %toolhash = &Apache::lonnet::get('exttool_'.$marker,['target'],$cdom,$cnum);
           if ($toolhash{'target'} eq 'window') {
              $exttool = 'window'; 
           }
       }
       if (($is_ext) || ($exttool)) {
         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
             ['forceedit','register','folderpath','symb','idx','title']);              ['forceedit','register','folderpath','symb','idx','title']);
         if (($env{'form.forceedit'}) &&          if (($env{'form.forceedit'}) &&
             (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&              (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
             (($env{'form.folderpath'} =~ /^supplemental/) ||              (($env{'form.folderpath'} =~ /^supplemental/) ||
              ($env{'form.symb'} =~ /^uploaded/))) {               ($env{'form.symb'} =~ /^uploaded/))) {
               my $type = 'ext';
               my %ltitools;
               if ($exttool) {
                   $type = 'tool';
                   %ltitools = &Apache::lonnet::get_domain_ltitools($cdom);
               }
             $r->print(              $r->print(
                 &Apache::lonextresedit::display_editor($url,$env{'form.folderpath'},                  &Apache::lonextresedit::display_editor($url,$env{'form.folderpath'},
                                                        $env{'form.symb'},                                                         $env{'form.symb'},
                                                        $env{'form.idx'}));                                                         $env{'form.idx'},$type,$cdom,
                                                          $cnum,\%ltitools));
             return OK;              return OK;
         } elsif ($env{'form.folderpath'} =~ /^supplemental/) {          } elsif ($env{'form.folderpath'} =~ /^supplemental/) {
             my $crstype = &Apache::loncommon::course_type();              my $crstype = &Apache::loncommon::course_type();
             $brcrum =              my $title = $env{'form.title'};
                 &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$env{'form.title'},1);              if ($title eq '') {
             if (ref($brcrum) eq 'ARRAY') {                  if ($is_ext) {
                 my $last = $env{'form.title'};                      $title = &mt('External Resource');
                 if ($last eq '') {                  } else {
                     $last = &mt('External Resource');                      $title = &mt('External Tool');
                 }                  }
                 push(@{$brcrum},  
                          {'title' => $last,  
                           'text' => $last,  
                           'no_mt' => 1,  
                          });  
   
             }              }
               $brcrum =
                   &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
         }          }
     }      }
   
Line 156  sub handler { Line 221  sub handler {
 #  #
 # This is not homework  # This is not homework
 #  #
         if ($is_ext) {          if (($is_ext) || ($exttool)) {
               $absolute = $env{'request.use_absolute'};
             $ENV{'QUERY_STRING'} =~ s/(^|\&)symb=[^\&]*/$1/;              $ENV{'QUERY_STRING'} =~ s/(^|\&)symb=[^\&]*/$1/;
             $ENV{'QUERY_STRING'} =~ s/\&$//;              $ENV{'QUERY_STRING'} =~ s/\&$//;
         }          }
Line 166  sub handler { Line 232  sub handler {
         }          }
   
         # encrypt url if not external          # encrypt url if not external
         &Apache::lonenc::check_encrypt(\$url) if $url !~ /^https?\:/ ;          unless ($is_ext || $exttool) {
               &Apache::lonenc::check_encrypt(\$url);
           }
   
         $r->print( wrapper($url,$brcrum) );          $r->print( wrapper($url,$brcrum,$absolute,$is_ext,$is_pdf,$exttool) );
   
     } # not just the menu      } # not just the menu
           
Line 195  described at http://www.lon-capa.org. Line 263  described at http://www.lon-capa.org.
   
 =over  =over
   
 =item wrapper($url,$brcrum)  =item wrapper($url,$brcrum,$absolute,$is_ext,$is_pdf,$title))
   
 Wraps $url in an iframe and generates a page for it.  =over
 $brcrum contains breadcrumbs for unregistered urls  
   =item $url
   
   url to display by including in an iframe within a
   LON-CAPA page which has a standard LON-CAPA inline menu.
   
   =item $brcrum
   
   breadcrumbs for unregistered urls
 (i.e., external resources in Supplemental Content).  (i.e., external resources in Supplemental Content).
 Returns markup for the entire page.  
   
 =item handler()  =item $absolute
   
 =back  contains protocol (http or https) followed by
   the hostname, if menu items in the standard LON-CAPA
   interface created by the call to loncommon::start_page()
   within &wrapper() need to use absolute URLs rather than
   relative URLs.
   
 =cut  That will be the case where an external resource has been 
   served from port 80, when the server customarily serves
   requests using Apache/SSL (i.e., port 443). mod_rewrite 
   is used to switch requests for external resources and
   the syllabus: /public/<domain>/<courseid>/syllabus
   (which might also point at an external resource)
   from https:// to http:// where the the URL of the remote site 
   specified in the resource itself is http://.
   
   This is done to avoid default mixed content blocking
   in Firefox 23 and later, when serving from Apache/SSL.
   
   =item $is_ext
   
   true if URL is for an external resource.
   
   =item $is_pdf
   
   true if URL is for a PDF (based on file extension).
   
   =item $title
   
   optional. If wrapped item is a PDF, and $env{'browser.mobile'} 
   is true, a link to a PDF is shown. The "title" will be displayed
   above the link, but if not provided as an arg, $env{'form.title'}
   will be used, otherwise, the filename will be displayed (unless
   hidden URL set for the resource).
   
   =back
   
   Returns markup for the entire page.
   
   =item handler()
   
   =back
   
   =cut
   
Removed from v.1.42  
changed lines
  Added in v.1.51

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