[LON-CAPA-cvs] cvs: loncom /interface lonexttool.pm

[raeburn]

raeburn		Wed Dec  6 02:15:36 2017 EDT

  Modified files:              
    /loncom/interface	lonexttool.pm 
  Log:
  - Bug 6754 LON-CAPA as LTI Consumer
    - Missing : in URLs for retrieval of roster from LTI Consumer, and 
      passback of grades to LTI Consumer.
    - Correct secret used to make signature for ext_ims_lis_memberships_id
  
  
Index: loncom/interface/lonexttool.pm
diff -u loncom/interface/lonexttool.pm:1.7 loncom/interface/lonexttool.pm:1.8
--- loncom/interface/lonexttool.pm:1.7	Thu Nov 30 14:41:20 2017
+++ loncom/interface/lonexttool.pm	Wed Dec  6 02:15:35 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Launch External Tool Provider (LTI)
 #
-# $Id: lonexttool.pm,v 1.7 2017/11/30 14:41:20 raeburn Exp $
+# $Id: lonexttool.pm,v 1.8 2017/12/06 02:15:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -316,7 +316,7 @@
         }
         if (($passback) || ($roster)) {
             if ($passback) {
-                $ltiparams{'lis_outcome_service_url'} = $crsprotocol.'//'.$crshostname.'/adm/service/passback';
+                $ltiparams{'lis_outcome_service_url'} = $crsprotocol.'://'.$crshostname.'/adm/service/passback';
                 $ltiparams{'ext_ims_lis_basic_outcome_url'} = $ltiparams{'lis_outcome_service_url'};
                 if ($gradesecret) {
                     my $result_sig = 
@@ -327,9 +327,9 @@
             }
             if ($roster) {
                 if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
-                    $ltiparams{'ext_ims_lis_memberships_url'} = $crsprotocol.'//'.$crshostname.'/adm/service/roster';
+                    $ltiparams{'ext_ims_lis_memberships_url'} = $crsprotocol.'://'.$crshostname.'/adm/service/roster';
                     if ($rostersecret) {
-                        my $roster_sig = Digest::SHA::sha1_hex($gradesecret.':::'.$digest_symb.':::'.$env{'request.course.id'});
+                        my $roster_sig = Digest::SHA::sha1_hex($rostersecret.':::'.$digest_symb.':::'.$env{'request.course.id'});
                         $ltiparams{'ext_ims_lis_memberships_id'} = $roster_sig.':::'.$digest_symb.':::'.$env{'request.course.id'};
                     }
                 }