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

Diff for /loncom/interface/lonexttool.pm between versions 1.19 and 1.21

version 1.19, 2018/05/23 16:36:14 version 1.21, 2021/05/04 18:47:36
Line 259  sub lti_params { Line 259  sub lti_params {
         $msgtype = 'basic-lti-launch-request';          $msgtype = 'basic-lti-launch-request';
     }      }
     if ($crslabel eq '') {      if ($crslabel eq '') {
         $crslabel = $env{'course.'.$env{'request.course.id'}.'.internal.coursecode'},          $crslabel = $env{'course.'.$env{'request.course.id'}.'.internal.coursecode'};
     }      }
     if ($crstitle eq '') {      if ($crstitle eq '') {
         $crstitle = $env{'course.'.$env{'request.course.id'}.'.description'},;          $crstitle = $env{'course.'.$env{'request.course.id'}.'.description'};
     }      }
     my $lonhost = $r->dir_config('lonHostID');      my $lonhost = $r->dir_config('lonHostID');
     my $loncaparev = $r->dir_config('lonVersion');      my $loncaparev = $r->dir_config('lonVersion');
Line 312  sub lti_params { Line 312  sub lti_params {
     my $domdesc = &Apache::lonnet::domain($cdom);      my $domdesc = &Apache::lonnet::domain($cdom);
     my $primary_id = &Apache::lonnet::domain($cdom,'primary');      my $primary_id = &Apache::lonnet::domain($cdom,'primary');
     my $int_dom = &Apache::lonnet::internet_dom($primary_id);      my $int_dom = &Apache::lonnet::internet_dom($primary_id);
     my $portal_url = &Apache::lonnet::course_portal_url($cnum,$cdom);      my $portal_url = &Apache::lonnet::course_portal_url($cnum,$cdom,$r);
   
     my %ltiparams = (      my %ltiparams = (
         lti_version                            => $version,          lti_version                            => $version,
Line 322  sub lti_params { Line 322  sub lti_params {
         tool_consumer_instance_guid            => $lonhost,          tool_consumer_instance_guid            => $lonhost,
         tool_consumer_instance_description     => $domdesc,          tool_consumer_instance_description     => $domdesc,
         tool_consumer_info_product_family_code => 'loncapa',          tool_consumer_info_product_family_code => 'loncapa',
         tool_consumer_instance_name            => $int_dom,            tool_consumer_instance_name            => $int_dom,
         tool_consumer_instance_url             => $portal_url,          tool_consumer_instance_url             => $portal_url,
         tool_consumer_info_version             => $loncaparev,          tool_consumer_info_version             => $loncaparev,
         user_id                                => $digest_user,          user_id                                => $digest_user,
Line 351  sub lti_params { Line 351  sub lti_params {
                 $ltiparams{'ext_ims_lis_basic_outcome_url'} = $ltiparams{'lis_outcome_service_url'};                  $ltiparams{'ext_ims_lis_basic_outcome_url'} = $ltiparams{'lis_outcome_service_url'};
                 if ($gradesecret) {                  if ($gradesecret) {
                     my $uniqid = $digest_symb.':::'.$digest_user.':::'.$env{'request.course.id'};                      my $uniqid = $digest_symb.':::'.$digest_user.':::'.$env{'request.course.id'};
                     $ltiparams{'lis_result_sourcedid'} = &LONCAPA::ltiutils::get_service_id($gradesecret,$uniqid);                       $ltiparams{'lis_result_sourcedid'} = &LONCAPA::ltiutils::get_service_id($gradesecret,$uniqid);
                 }                  }
             }              }
             if ($roster) {              if ($roster) {
Removed from v.1.19  
changed lines
  Added in v.1.21

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