loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.54, 2021/11/03 01:04:02	version 1.55, 2021/11/17 00:44:47
Line 703 sub handler {	Line 703 sub handler {
}	}
}	}
} else {	} else {
my $handle = &Apache::lonnet::check_for_valid_session($r);	my ($handle,$expirepub);
	$handle = &Apache::lonnet::check_for_valid_session($r);

	# For "public user" - remove any exising "public" cookie so actual user is ogged in.
	if ($handle) {
	if ($handle=~/^publicuser\_/) {
	my $lonidsdir=$r->dir_config('lonIDsDir');
	if ($lonidsdir ne '') {
	unlink("$lonidsdir/$handle.id");
	}
	undef($handle);
	$expirepub = 1;
	}
	}
if ($handle) {	if ($handle) {
&Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'),	&Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'),
$handle);	$handle);
Line 945 sub handler {	Line 958 sub handler {
}	}
}	}
&Apache::lonauth::success($r,$data{'username'},$data{'domain'},	&Apache::lonauth::success($r,$data{'username'},$data{'domain'},
$home,$desturl,$extra_env,\%form,$skipcritical);	$home,$desturl,$extra_env,\%form,$skipcritical,'',
	$expirepub);
}	}
return OK;	return OK;
}	}