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

Diff for /loncom/lontrans.pm between versions 1.18 and 1.21

version 1.18, 2018/01/12 13:34:08 version 1.21, 2018/04/17 14:02:56
Line 44  sub handler { Line 44  sub handler {
         my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);          my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);
         if (($handle ne '') && ($user{'lti'})) {          if (($handle ne '') && ($user{'lti'})) {
             if ($realuri =~ m{^uploaded/$match_domain/$match_courseid/(default|supplemental)(|_\d+)\.(?:sequence|page)___\d+___.+$}) {              if ($realuri =~ m{^uploaded/$match_domain/$match_courseid/(default|supplemental)(|_\d+)\.(?:sequence|page)___\d+___.+$}) {
                   if ($user{'ltiuri'} ne $realuri) {
                       &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                   }
                   my ($map,$resid,$url) = split(/___/,$realuri);
                   $realuri = &Apache::lonnet::clutter($url).'?symb='.$realuri;
               } elsif ($realuri =~ m{^res/$match_domain/$match_username/.+\.(?:sequence|page)___\d+___.+$}) {
                   if ($user{'ltiuri'} ne $realuri) {
                       &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                   }
                 my ($map,$resid,$url) = split(/___/,$realuri);                  my ($map,$resid,$url) = split(/___/,$realuri);
                 $realuri = &Apache::lonnet::clutter($url).'?symb='.$realuri;                  $realuri = &Apache::lonnet::clutter($url).'?symb='.$realuri;
             } elsif ($realuri =~ m{^tiny/$match_domain/\w+$}) {              } elsif ($realuri =~ m{^tiny/$match_domain/\w+$}) {
                 $realuri = '/'.$realuri;                      $realuri = '/'.$realuri;
                   if ($user{'ltiuri'} ne $realuri) {
                       &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                   }
             } elsif ($realuri =~ m{($match_domain)/($match_courseid)$}) {              } elsif ($realuri =~ m{($match_domain)/($match_courseid)$}) {
                 $realuri = '/adm/navmaps';                  $realuri = '/adm/navmaps';
                   if ($user{'ltiuri'} ne '') {
                       &Apache::lonnet::delenv('request.lti.uri');
                   }
             } else {              } else {
                 $realuri = '/'.$realuri;                  $realuri = '/'.$realuri;
                 if ($realuri =~ m{/default_\d+\.sequence$}) {                  if ($realuri =~ m{/default_\d+\.sequence$}) {
                       if ($user{'ltiuri'} ne $realuri) {
                           &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                       }
                     $realuri .= (($realuri =~/\?/)?'&':'?').'navmap=1';                      $realuri .= (($realuri =~/\?/)?'&':'?').'navmap=1';
                   } elsif ($realuri =~ m{^/res/.+\.sequence$}) {
                       if ($user{'ltiuri'} ne $realuri) {
                           &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                       }
                       $realuri .= (($realuri =~/\?/)?'&':'?').'navmap=1';
                   } elsif ($realuri =~ m{\.page$}) {
                       if ($user{'ltiuri'} ne $realuri) {
                           &Apache::lonnet::appenv({'request.lti.uri' => $realuri});
                       }
                 }                  }
             }              }
             my $host = $r->headers_in->get('Host');              my $host = $r->headers_in->get('Host');
Line 103  sub handler { Line 130  sub handler {
                                     }                                      }
                                     if ((&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i) &&                                      if ((&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i) &&
                                         (!$env{'request.role.adv'})) {                                          (!$env{'request.role.adv'})) {
                                         $realuri = &Apache::lonenc::encrypted(&Apache::lonnet::clutter($url)).                                          $realuri = &Apache::lonenc::encrypted(&Apache::lonnet::clutter($url));
                                                    '?symb='.&Apache::lonenc::encrypted($symb);                                          if (($url =~ /\.sequence$/) &&
                                               ($env{'course.'.$env{'request.course.id'}.'.type'} ne 'Placement')) {
                                               $realuri .= '?navmap=1';
                                           } else {
                                               $realuri .= '?symb='.&Apache::lonenc::encrypted($symb);
                                           }
                                     } else {                                      } else {
                                         $realuri = &Apache::lonnet::clutter($url).'?symb='.$symb;                                          $realuri = &Apache::lonnet::clutter($url);
                                           if (($url =~ /\.sequence$/) &&
                                               ($env{'course.'.$env{'request.course.id'}.'.type'} ne 'Placement')) {
                                               $realuri .= '?navmap=1'; 
                                           } else {
                                               $realuri .= '?symb='.$symb;
                                           }
                                     }                                      }
                                     my $host = $r->headers_in->get('Host');                                      my $host = $r->headers_in->get('Host');
                                     if ($host) {                                      if ($host) {
Removed from v.1.18  
changed lines
  Added in v.1.21

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