loncom/auth/lonshibauth.pm - diff

Return to lonshibauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.15, 2022/06/18 02:10:18	version 1.16, 2022/06/30 21:04:13
Line 306 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'});
if ($info{'linkprotuser'} ne '') {	foreach my $item ('linkprotuser','linkprotexit') {
$extras .= '&linkprotuser='.&escape($info{'linkprotuser'});	if ($info{$item} ne '') {
	$extras .= '&'.$item.'='.&escape($info{$item});
	}
}	}
last;	last;
}	}