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

Diff for /rat/lonwrapper.pm between versions 1.49.2.11.2.7 and 1.81

version 1.49.2.11.2.7, 2024/02/28 19:01:41 version 1.81, 2022/10/29 18:52:58
Line 82  sub wrapper { Line 82  sub wrapper {
         }          }
     }      }
   
     my $noiframe = &Apache::loncommon::modal_link(&HTML::Entities::encode($url.$anchor,'&<>"\''),$lt{'show'},500,400);      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;
Line 95  sub wrapper { Line 95  sub wrapper {
     }      }
     if ($env{'form.only_body'}) {      if ($env{'form.only_body'}) {
         $args->{'only_body'} = $env{'form.only_body'};          $args->{'only_body'} = $env{'form.only_body'};
     } elsif (($is_supp) && ($env{'form.folderpath'} ne '')) {  
         $args->{'bread_crumbs_nomenu'} = 1;  
     }      }
   
     my ($countdown,$donemsg,$headjs);      my ($countdown,$donemsg,$headjs);
Line 153  sub wrapper { Line 151  sub wrapper {
 #  #
   
     unless ($clientmobile || ($exttool eq 'window') || ($exttool eq 'tab') || $uselink) {      unless ($clientmobile || ($exttool eq 'window') || ($exttool eq 'tab') || $uselink) {
         $headjs = &Apache::loncommon::iframe_wrapper_headjs();          $headjs = '
   <script type="text/javascript">
   // <![CDATA[
   var LCnotready = 0;
   var LCresizedef = 0;
   // ]]>
   </script>'."\n";
     }      }
   
     my $startpage = &Apache::loncommon::start_page('Menu',$headjs,$args).$countdown.$donemsg;      my $startpage = &Apache::loncommon::start_page('Menu',$headjs,$args).$countdown.$donemsg;
Line 296  ENDLINK Line 300  ENDLINK
         $linktext = &mt('Link to resource');          $linktext = &mt('Link to resource');
         return $startpage.&create_link($url,$anchor,$title,$linktext).$endpage;          return $startpage.&create_link($url,$anchor,$title,$linktext).$endpage;
     } else {      } else {
           my $offset = 5;
           &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['inhibitmenu']);
           if ($env{'form.inhibitmenu'} eq 'yes') {
               $offset = 0;
           }
           my $script = &Apache::lonhtmlcommon::scripttag(<<SCRIPT);
           \$(document).ready( function() {
               \$(window).unbind('resize').resize(function(){
                   var header = null;
                   var offset = $offset;
                   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 != null && header.length) {
                       height = header.height();
                       hdrtop = header.position().top;
                   }
                   var pos = height + hdrtop + offset;
                   \$('.LC_iframecontainer').css('top', pos);
               });
               LCresizedef = 1;
               if (LCnotready == 1) {
                   LCnotready = 0;
                   \$(window).trigger('resize');
               }
           });
           window.onload = function(){
                if (LCresizedef) {
                    LCnotready = 0;
                    \$(window).trigger('resize');
                } else {
                    LCnotready = 1;
                }
           };
   SCRIPT
         # javascript will position the iframe if window was resized (or zoomed)          # javascript will position the iframe if window was resized (or zoomed)
         my $script = &Apache::loncommon::iframe_wrapper_resizejs();  
         my $dest = &HTML::Entities::encode($url.$anchor,'&<>"');          my $dest = &HTML::Entities::encode($url.$anchor,'&<>"');
         return <<ENDFRAME;          return <<ENDFRAME;
         $startpage          $startpage
Line 380  sub handler { Line 425  sub handler {
         my %toolhash = &Apache::lonnet::get('exttool_'.$marker,['target','linktext','explanation','id','width','height'],          my %toolhash = &Apache::lonnet::get('exttool_'.$marker,['target','linktext','explanation','id','width','height'],
                                             $cdom,$cnum);                                              $cdom,$cnum);
         if ($toolhash{'id'}) {          if ($toolhash{'id'}) {
             my ($idx,%ltitools);              my %ltitools = &Apache::lonnet::get_domain_lti($cdom,'consumer');
             if ($toolhash{'id'} =~ /^c(\d+)$/) {              if (ref($ltitools{$toolhash{'id'}}) eq 'HASH') {
                 $idx = $1;                  $exttoolremote = $ltitools{$toolhash{'id'}}{'url'};
                 %ltitools = &Apache::lonnet::get_course_lti($cnum,$cdom,'consumer');  
             } else {  
                 $idx = $toolhash{'id'};  
                 %ltitools = &Apache::lonnet::get_domain_lti($cdom,'consumer');  
             }  
             if (ref($ltitools{$idx}) eq 'HASH') {  
                 $exttoolremote = $ltitools{$idx}{'url'};  
             }              }
         }          }
         if ($toolhash{'target'} eq 'window') {          if ($toolhash{'target'} eq 'window') {
Line 408  sub handler { Line 446  sub handler {
     }      }
     if (($is_ext) || ($exttool)) {      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','anchor','only_body']);              ['forceedit','register','folderpath','symb','idx','title','anchor']);
         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/) ||
Line 453  sub handler { Line 491  sub handler {
                 $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};                  $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                 &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);                  &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);
             }              }
             unless ($env{'form.only_body'}) {               $brcrum =
                 $brcrum =                  &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                     &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);  
             }  
         }          }
     } elsif ($env{'request.course.id'}) {      } elsif ($env{'request.course.id'}) {
         my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});          my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});
Line 464  sub handler { Line 500  sub handler {
         if ($url =~ m{^\Q/uploaded/$courseurl/supplemental/\E}) {          if ($url =~ m{^\Q/uploaded/$courseurl/supplemental/\E}) {
             $is_supp = 1;              $is_supp = 1;
             &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},              &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                                     ['folderpath','title','only_body']);                                                      ['folderpath','title']);
             if ($env{'form.folderpath'}) {              if ($env{'form.folderpath'}) {
                 $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};                  $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                 $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};                  $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 473  sub handler { Line 509  sub handler {
             my $title = $env{'form.title'};              my $title = $env{'form.title'};
             $title = &HTML::Entities::encode($title,'\'"<>&');              $title = &HTML::Entities::encode($title,'\'"<>&');
             my $crstype = &Apache::loncommon::course_type();              my $crstype = &Apache::loncommon::course_type();
             unless ($env{'form.only_body'}) {              $brcrum =
                 $brcrum =                  &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                     &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);  
             }  
         }          }
     }      }
   
Removed from v.1.49.2.11.2.7  
changed lines
  Added in v.1.81

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