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

Diff for /loncom/interface/lonexttool.pm between versions 1.26 and 1.27

version 1.26, 2025/03/15 01:03:33 version 1.27, 2025/03/15 17:28:14
Line 228  sub handler { Line 228  sub handler {
         }          }
         my $submittext = &mt('Launch [_1]',$toolhash{'title'});          my $submittext = &mt('Launch [_1]',$toolhash{'title'});
         if (($toolhash{'url'} ne '') && ($launchok)) {          if (($toolhash{'url'} ne '') && ($launchok)) {
             my %lti = &lti_params($r,$cnum,$cdom,$idx,$submittext,\%toolhash);              my %lti = &lti_params($r,$cnum,$cdom,$marker,$exttool,$idx,$submittext,\%toolhash);
             my $url = $toolhash{'url'};              my $url = $toolhash{'url'};
             if ($toolhash{'crsappend'} ne '') {              if ($toolhash{'crsappend'} ne '') {
                 $url .= $toolhash{'crsappend'};                  $url .= $toolhash{'crsappend'};
Line 246  sub handler { Line 246  sub handler {
 }  }
   
 sub lti_params {  sub lti_params {
     my ($r,$cnum,$cdom,$idx,$submittext,$toolsref) = @_;      my ($r,$cnum,$cdom,$marker,$exttool,$idx,$submittext,$toolsref) = @_;
     my ($version,$context_type,$msgtype,$toolname,$passback,$roster,$locale,      my ($version,$context_type,$msgtype,$toolname,$passback,$roster,$locale,
         $crslabel,$crstitle,$gradesecret,$rostersecret,%fields,%rolesmap,          $crslabel,$crstitle,$gradesecret,$rostersecret,%fields,%rolesmap,
         %display,%custom,@userlangs,$incdom,$returnurl,$backtourl);          %display,%custom,@userlangs,$incdom,$returnurl,$backtourl);
Line 324  sub lti_params { Line 324  sub lti_params {
     }      }
     my ($title,$digest_symb,$digest_suppurl,$resource_link_id);      my ($title,$digest_symb,$digest_suppurl,$resource_link_id);
     my ($symb) = &Apache::lonnet::whichuser();      my ($symb) = &Apache::lonnet::whichuser();
       my $uri = "/adm/$cdom/$cnum/$marker/$exttool";
     if ($symb) {      if ($symb) {
         $digest_symb = &Encode::decode('UTF-8',$symb);          $digest_symb = &Encode::decode('UTF-8',$symb);
         $digest_symb = &Digest::SHA::sha1_hex($digest_symb);          $digest_symb = &Digest::SHA::sha1_hex($digest_symb);
Line 336  sub lti_params { Line 337  sub lti_params {
                 $title = $res->compTitle();                  $title = $res->compTitle();
             }              }
         }          }
     } elsif ($env{'httpref.'.$env{'request.noversionuri'}} eq '/adm/coursedoc') {      } elsif ($env{'httpref.'.$uri} eq '/adm/coursedoc') {
         $digest_suppurl = &Encode::decode('UTF-8',$env{'request.noversionuri'});          $digest_suppurl = &Encode::decode('UTF-8',$uri);
         $digest_suppurl = &Digest::SHA::sha1_hex($digest_suppurl);          $digest_suppurl = &Digest::SHA::sha1_hex($digest_suppurl);
         $resource_link_id = $digest_suppurl;          $resource_link_id = $digest_suppurl;
     }      }
Line 489  sub lti_params { Line 490  sub lti_params {
                     $return_url = $mapurl;                      $return_url = $mapurl;
                 }                  }
                 $return_url .= '?navmap=1';                  $return_url .= '?navmap=1';
             } elsif ($env{'httpref.'.$env{'request.noversionuri'}} eq '/adm/coursedoc') {              } elsif ($env{'httpref.'.$uri} eq '/adm/coursedoc') {
                 $return_url = '/adm/supplemental';                  $return_url = '/adm/supplemental';
             } else {              } else {
                 $return_url = '/adm/navmaps';                  $return_url = '/adm/navmaps';
             }              }
             $ltiparams{'launch_presentation_return_url'} = $location.$return_url;              $ltiparams{'launch_presentation_return_url'} = $location.$return_url;
         } else {          } else {
             my $uri = $env{'request.noversionuri'};              $uri = '/adm/wrapper'.$uri;
             if ($env{'request.enc'}) {              if ($env{'request.enc'}) {
                 $uri = &Apache::lonenc::encrypted($uri);                  $uri = &Apache::lonenc::encrypted($uri);
             }              }
Removed from v.1.26  
changed lines
  Added in v.1.27

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