|
version 1.522.2.28.4.1, 2022/01/03 20:09:40
|
version 1.522.2.28.4.2, 2022/02/21 18:21:11
|
|
Line 1313 sub print_row {
|
Line 1313 sub print_row {
|
| my ($domltistr,$crsltistr); |
my ($domltistr,$crsltistr); |
| my %lti = |
my %lti = |
| &Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'}, |
&Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'}, |
| 'provider'); |
'linkprot'); |
| if (keys(%lti)) { |
if (keys(%lti)) { |
| foreach my $item (sort { $a <=> $b } (keys(%lti))) { |
foreach my $item (sort { $a <=> $b } (keys(%lti))) { |
| if (ref($lti{$item}) eq 'HASH') { |
if (($item =~ /^\d+$/) && (ref($lti{$item}) eq 'HASH')) { |
| unless ($lti{$item}{'requser'}) { |
$domltistr .= $item.':'.&escape(&escape($lti{$item}{'name'})).','; |
| $domltistr .= $item.':'.&escape(&escape($lti{$item}{'consumer'})).','; |
|
| } |
|
| } |
} |
| } |
} |
| $domltistr =~ s/,$//; |
$domltistr =~ s/,$//; |
|
Line 4005 sub string_deeplink_selector {
|
Line 4003 sub string_deeplink_selector {
|
| } |
} |
| my %lti = |
my %lti = |
| &Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'}, |
&Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'}, |
| 'provider'); |
'linkprot'); |
| foreach my $item (keys(%lti)) { |
foreach my $item (keys(%lti)) { |
| if (ref($lti{$item}) eq 'HASH') { |
if (($item =~ /^\d+$/) && (ref($lti{$item}) eq 'HASH')) { |
| unless ($lti{$item}{'requser'}) { |
$domlti{$item} = $lti{$item}{'name'}; |
| $domlti{$item} = $lti{$item}{'consumer'}; |
|
| } |
|
| } |
} |
| } |
} |
| if ($env{'course.'.$env{'request.course.id'}.'.menucollections'}) { |
if ($env{'course.'.$env{'request.course.id'}.'.menucollections'}) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonparmset.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface