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

[raeburn]

raeburn		Mon Feb 21 18:04:35 2022 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - Bug 6907 
    Link Protectors for deep-linking from launch from LTI Consumer can be
    configured at both a domain level and a course level.
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.603 loncom/interface/lonparmset.pm:1.604
--- loncom/interface/lonparmset.pm:1.603	Mon Jan  3 20:08:24 2022
+++ loncom/interface/lonparmset.pm	Mon Feb 21 18:04:35 2022
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.603 2022/01/03 20:08:24 raeburn Exp $
+# $Id: lonparmset.pm,v 1.604 2022/02/21 18:04:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1736,13 +1736,11 @@
         my ($domltistr,$crsltistr);
         my %lti =
             &Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'},
-                                            'provider');
+                                            'linkprot');
         if (keys(%lti)) {
             foreach my $item (sort { $a <=> $b }  (keys(%lti))) {
-                if (ref($lti{$item}) eq 'HASH') {
-                    unless ($lti{$item}{'requser'}) {
-                        $domltistr .= $item.':'.&escape(&escape($lti{$item}{'consumer'})).',';
-                    }
+                if (($item =~ /^\d+$/) && (ref($lti{$item}) eq 'HASH')) {
+                    $domltistr .= $item.':'.&escape(&escape($lti{$item}{'name'})).',';
                 }
             }
             $domltistr =~ s/,$//;
@@ -5111,12 +5109,10 @@
     }
     my %lti =
         &Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'},
-                                        'provider');
+                                        'linkprot');
     foreach my $item (keys(%lti)) {
-        if (ref($lti{$item}) eq 'HASH') {
-            unless ($lti{$item}{'requser'}) {
-                $domlti{$item} = $lti{$item}{'consumer'};
-            }
+        if (($item =~ /^\d+$/) && (ref($lti{$item}) eq 'HASH')) {
+            $domlti{$item} = $lti{$item}{'name'};
         }
     }
     if ($env{'course.'.$env{'request.course.id'}.'.menucollections'}) {