loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.619, 2023/04/03 19:53:30	version 1.620, 2023/05/22 21:10:55
Line 1849 sub print_row {	Line 1849 sub print_row {
$extra = 'ltid_'.$domltistr;	$extra = 'ltid_'.$domltistr;
}	}
}	}
my %courselti = &Apache::lonnet::get_course_lti($cnum,$cdom);	my %courselti = &Apache::lonnet::get_course_lti($cnum,$cdom,'provider');
if (keys(%courselti)) {	if (keys(%courselti)) {
foreach my $item (sort { $a <=> $b } keys(%courselti)) {	foreach my $item (sort { $a <=> $b } keys(%courselti)) {
if (($item =~ /^\d+$/) && (ref($courselti{$item}) eq 'HASH')) {	if (($item =~ /^\d+$/) && (ref($courselti{$item}) eq 'HASH')) {
Line 5345 sub string_deeplink_selector {	Line 5345 sub string_deeplink_selector {
}	}
my %courselti =	my %courselti =
&Apache::lonnet::get_course_lti($env{'course.'.$env{'request.course.id'}.'.num'},	&Apache::lonnet::get_course_lti($env{'course.'.$env{'request.course.id'}.'.num'},
$env{'course.'.$env{'request.course.id'}.'.domain'});	$env{'course.'.$env{'request.course.id'}.'.domain'},
	'provider');
foreach my $item (keys(%courselti)) {	foreach my $item (keys(%courselti)) {
if (ref($courselti{$item}) eq 'HASH') {	if (ref($courselti{$item}) eq 'HASH') {
$crslti{$item} = $courselti{$item}{'name'};	$crslti{$item} = $courselti{$item}{'name'};