loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.63, 2022/09/13 12:22:14	version 1.65, 2023/06/02 01:20:26
Line 330 sub handler {	Line 330 sub handler {
}	}
if ($env{'form.origurl'}) {	if ($env{'form.origurl'}) {
$info{'origurl'} = $env{'form.origurl'};	$info{'origurl'} = $env{'form.origurl'};
	if ($env{'form.origurl'} eq '/adm/email') {
	if ($env{'request.display'} && ($env{'request.mailrecip'} eq "$env{'user.name'}:$env{'user.domain'}")) {
	$info{'display'} = &escape($env{'request.display'});
	$info{'mailrecip'} = &escape($env{'request.mailrecip'});
	}
	}
}	}
if ($env{'form.symb'}) {	if ($env{'form.symb'}) {
$info{'symb'} = $env{'form.symb'};	$info{'symb'} = $env{'form.symb'};
Line 356 sub handler {	Line 362 sub handler {
}	}
if ($env{'request.linkprot'}) {	if ($env{'request.linkprot'}) {
$info{'linkprot'} = $env{'request.linkprot'};	$info{'linkprot'} = $env{'request.linkprot'};
foreach my $item ('linkprotuser','linkprotexit') {	foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
if ($env{'request.'.$item}) {	if ($env{'request.'.$item}) {
$info{$item} = $env{'request.'.$item};	$info{$item} = $env{'request.'.$item};
}	}