loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.35.2.6.2.1, 2022/01/01 16:33:13	version 1.35.2.6.2.2, 2022/07/08 15:52:52
Line 97 sub flush_course_logs {	Line 97 sub flush_course_logs {

sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;

my $handle=&init_env($r);	my $handle=&init_env($r);
if (!defined($handle)) { return FORBIDDEN; }	if (!defined($handle)) { return FORBIDDEN; }

Line 291 sub handler {	Line 291 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') {
	if ($env{'request.'.$item}) {
	$info{$item} = $env{'request.'.$item};
	}
	}
} elsif ($env{'request.linkkey'} ne '') {	} elsif ($env{'request.linkkey'} ne '') {
$info{'linkkey'} = $env{'request.linkkey'};	$info{'linkkey'} = $env{'request.linkkey'};
}	}