loncom/auth/lonshibauth.pm - diff

Return to lonshibauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.14, 2021/12/12 20:49:26	version 1.16, 2022/06/30 21:04:13
Line 293 sub set_token {	Line 293 sub set_token {
&Apache::lonacc::get_posted_cgi($r,['linkkey']);	&Apache::lonacc::get_posted_cgi($r,['linkkey']);
}	}
}	}
	unless (($r->is_initial_req()) \|\| ($env{'form.ltoken'}) \|\|
	($env{'form.linkkey'})) {
	return;
	}
}	}
my $extras;	my $extras;
foreach my $name (@names) {	foreach my $name (@names) {
Line 302 sub set_token {	Line 306 sub set_token {
&Apache::lonnet::tmpdel($env{'form.ltoken'});	&Apache::lonnet::tmpdel($env{'form.ltoken'});
if ($info{'linkprot'}) {	if ($info{'linkprot'}) {
$extras .= '&linkprot='.&escape($info{'linkprot'});	$extras .= '&linkprot='.&escape($info{'linkprot'});
	foreach my $item ('linkprotuser','linkprotexit') {
	if ($info{$item} ne '') {
	$extras .= '&'.$item.'='.&escape($info{$item});
	}
	}
last;	last;
}	}
} else {	} else {