loncom/interface/lonexttool.pm - diff

Return to lonexttool.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonexttool.pm between versions 1.22.2.5 and 1.22.2.6

version 1.22.2.5, 2025/03/15 17:35:08	version 1.22.2.6, 2025/06/06 21:21:53
Line 322 sub lti_params {	Line 322 sub lti_params {
if (scalar(@userlangs) == 1) {	if (scalar(@userlangs) == 1) {
$locale = $userlangs[0];	$locale = $userlangs[0];
}	}
my ($title,$digest_symb,$digest_suppurl,$resource_link_id);	my ($title,$digest_symb,$resource_link_id);
my ($symb) = &Apache::lonnet::whichuser();	my $ignorecachednull = 1;
	my ($symb) = &Apache::lonnet::whichuser('',$ignorecachednull);
my $uri = "/adm/$cdom/$cnum/$marker/$exttool";	my $uri = "/adm/$cdom/$cnum/$marker/$exttool";
if ($symb) {	if ($symb) {
$digest_symb = &Encode::decode('UTF-8',$symb);	$digest_symb = &Encode::decode('UTF-8',$symb);
Line 338 sub lti_params {	Line 339 sub lti_params {
}	}
}	}
} elsif ($env{'httpref.'.$uri} eq '/adm/coursedoc') {	} elsif ($env{'httpref.'.$uri} eq '/adm/coursedoc') {
$digest_suppurl = &Encode::decode('UTF-8',$uri);	my $digest_suppurl = &Encode::decode('UTF-8',$uri);
$digest_suppurl = &Digest::SHA::sha1_hex($digest_suppurl);	$digest_suppurl = &Digest::SHA::sha1_hex($digest_suppurl);
$resource_link_id = $digest_suppurl;	$resource_link_id = $digest_suppurl;
	$title = &mt('Supplemental Content').': '.$marker.'_'.$exttool;
	} else {
	my $digest_url = &Encode::decode('UTF-8',$uri);
	$digest_url = &Digest::SHA::sha1_hex($digest_url);
	$resource_link_id = $digest_url;
	$title = &mt('External Tool').': '.$marker.'_'.$exttool;
}	}
my $domdesc = &Apache::lonnet::domain($cdom);	my $domdesc = &Apache::lonnet::domain($cdom);
my $primary_id = &Apache::lonnet::domain($cdom,'primary');	my $primary_id = &Apache::lonnet::domain($cdom,'primary');

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.22.2.5
changed lines
	Added in v.1.22.2.6