loncom/lti/ltiauth.pm - diff

Return to ltiauth.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.20, 2021/08/04 19:59:11	version 1.21, 2021/08/07 01:34:20
Line 1036 sub course_from_tinyurl {	Line 1036 sub course_from_tinyurl {
my ($tail) = @_;	my ($tail) = @_;
my ($urlcdom,$urlcnum);	my ($urlcdom,$urlcnum);
if ($tail =~ m{^/tiny/($match_domain)/(\w+)$}) {	if ($tail =~ m{^/tiny/($match_domain)/(\w+)$}) {
my ($urlcdom,$key) = ($1,$2);	($urlcdom,my $key) = ($1,$2);
my $tinyurl;	my $tinyurl;
my ($result,$cached)=&Apache::lonnet::is_cached_new('tiny',$urlcdom."\0".$key);	my ($result,$cached)=&Apache::lonnet::is_cached_new('tiny',$urlcdom."\0".$key);
if (defined($cached)) {	if (defined($cached)) {