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

raeburn raeburn at source.lon-capa.org
Tue Aug 14 14:20:17 EDT 2018


raeburn		Tue Aug 14 18:20:17 2018 EDT

  Modified files:              
    /loncom/interface	lonexttool.pm 
  Log:
  - Remove trailing whitespace.
  - End lines with semi-colons.
  
  
Index: loncom/interface/lonexttool.pm
diff -u loncom/interface/lonexttool.pm:1.19 loncom/interface/lonexttool.pm:1.20
--- loncom/interface/lonexttool.pm:1.19	Wed May 23 16:36:14 2018
+++ loncom/interface/lonexttool.pm	Tue Aug 14 18:20:17 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Launch External Tool Provider (LTI)
 #
-# $Id: lonexttool.pm,v 1.19 2018/05/23 16:36:14 raeburn Exp $
+# $Id: lonexttool.pm,v 1.20 2018/08/14 18:20:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -259,10 +259,10 @@
         $msgtype = 'basic-lti-launch-request';
     }
     if ($crslabel eq '') {
-        $crslabel = $env{'course.'.$env{'request.course.id'}.'.internal.coursecode'},
+        $crslabel = $env{'course.'.$env{'request.course.id'}.'.internal.coursecode'};
     }
     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 $loncaparev = $r->dir_config('lonVersion');
@@ -322,7 +322,7 @@
         tool_consumer_instance_guid            => $lonhost,
         tool_consumer_instance_description     => $domdesc,
         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_info_version             => $loncaparev,
         user_id                                => $digest_user,
@@ -351,7 +351,7 @@
                 $ltiparams{'ext_ims_lis_basic_outcome_url'} = $ltiparams{'lis_outcome_service_url'};
                 if ($gradesecret) {
                     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) {




More information about the LON-CAPA-cvs mailing list