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

Diff for /rat/lonwrapper.pm between versions 1.49.2.8 and 1.49.2.12

version 1.49.2.8, 2020/02/16 23:52:03 version 1.49.2.12, 2024/07/04 02:30:39
Line 52  sub wrapper { Line 52  sub wrapper {
                                           'show' => 'Show content in pop-up window',                                            'show' => 'Show content in pop-up window',
                                         );                                          );
   
       (undef,undef,undef,undef,undef,undef,my $clientmobile) =
           &Apache::loncommon::decode_user_agent($r);
   
     my ($anchor,$uselink,$linktext);      my ($anchor,$uselink,$linktext);
     if ($is_ext) {      if ($is_ext) {
         if ($env{'form.symb'}) {          if ($env{'form.symb'}) {
Line 62  sub wrapper { Line 65  sub wrapper {
         } elsif ($env{'form.anchor'} ne '') {          } elsif ($env{'form.anchor'} ne '') {
             $anchor = '#'.$env{'form.anchor'};              $anchor = '#'.$env{'form.anchor'};
         }          }
         unless (($is_pdf) && ($env{'browser.mobile'})) {          unless (($is_pdf) && ($clientmobile)) {
             my $hostname = $r->hostname();              my $hostname = $r->hostname();
             my $lonhost = $r->dir_config('lonHostID');              my $lonhost = $r->dir_config('lonHostID');
             my $ip = &Apache::lonnet::get_host_ip($lonhost);              my $ip = &Apache::lonnet::get_host_ip($lonhost);
Line 70  sub wrapper { Line 73  sub wrapper {
         }          }
     }      }
   
     my $noiframe = &Apache::loncommon::modal_link($url.$anchor,$lt{'show'},500,400);      my $noiframe = &Apache::loncommon::modal_link(&HTML::Entities::encode($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 94  sub wrapper { Line 97  sub wrapper {
 # do not obscure the Functions menu.  # do not obscure the Functions menu.
 #  #
   
     unless (($env{'browser.mobile'}) || $uselink) {      unless ($clientmobile || $uselink) {
         $headjs = '          $headjs = '
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
Line 102  var LCnotready = 0; Line 105  var LCnotready = 0;
 var LCresizedef = 0;  var LCresizedef = 0;
 // ]]>  // ]]>
 </script>'."\n";  </script>'."\n";
       }
   
     my $startpage = &Apache::loncommon::start_page('Menu',$headjs,$args);      my $startpage = &Apache::loncommon::start_page('Menu',$headjs,$args);
     my $endpage = &Apache::loncommon::end_page();      my $endpage = &Apache::loncommon::end_page();
Line 116  var LCresizedef = 0; Line 120  var LCresizedef = 0;
             }              }
         }          }
     }      }
     if ($env{'browser.mobile'}) {      if ($clientmobile) {
         my $output = $startpage;          my $output = $startpage;
         if ($is_pdf) {          if ($is_pdf) {
             $linktext = &mt('Link to PDF (for mobile devices)');              $linktext = &mt('Link to PDF (for mobile devices)');
Line 176  var LCresizedef = 0; Line 180  var LCresizedef = 0;
         window.onload = function(){          window.onload = function(){
             if (LCresizedef) {              if (LCresizedef) {
                 LCnotready = 0;                  LCnotready = 0;
                 \$(window).trigger('resize') };                  \$(window).trigger('resize');
             } else {              } else {
                 LCnotready = 1;                  LCnotready = 1;
             }              }
Line 227  sub handler { Line 231  sub handler {
     for ($url){      for ($url){
         s|^/adm/wrapper||;          s|^/adm/wrapper||;
         $is_ext = $_ =~ s|^/ext/|http://|;          $is_ext = $_ =~ s|^/ext/|http://|;
         s|http://https://?|https://| if ($is_ext);          s|http://https://|https://| if ($is_ext);
         s|&colon;|:|g;          s|&colon;|:|g;
     }      }
   
Line 374  true if URL is for a PDF (based on file Line 378  true if URL is for a PDF (based on file
   
 =item $title  =item $title
   
 optional. If wrapped item is a PDF, and $env{'browser.mobile'}   optional. If wrapped item is a PDF, and $clientmobile is true,
 is true, a link to a PDF is shown. The "title" will be displayed  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'}  above the link, but if not provided as an arg, $env{'form.title'}
 will be used, otherwise, the filename will be displayed (unless  will be used, otherwise, the filename will be displayed (unless
 hidden URL set for the resource).  hidden URL set for the resource).
Removed from v.1.49.2.8  
changed lines
  Added in v.1.49.2.12

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