loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.90, 2004/05/08 16:26:32	version 1.92, 2004/05/21 19:16:35
Line 47 sub redirect_user {	Line 47 sub redirect_user {
$r->send_http_header;	$r->send_http_header;
my $swinfo=&Apache::lonmenu::rawconfig();	my $swinfo=&Apache::lonmenu::rawconfig();
my $bodytag=&Apache::loncommon::bodytag('Switching Role');	my $bodytag=&Apache::loncommon::bodytag('Switching Role');
$r->print (<<ENDREDIR);	# Note to style police:
	# This must only replace the spaces, nothing else, or it bombs elsewhere.
	$url=~s/ /\%20/g;
	$r->print (<<ENDREDIR);
<head><title>$title</title>	<head><title>$title</title>
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$url">	<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$url">
</head>	</head>
Line 135 sub handler {	Line 138 sub handler {
&Apache::lonnet::assign_access_key(	&Apache::lonnet::assign_access_key(
$ENV{'form.newkey'},	$ENV{'form.newkey'},
$authdom,$authnum,	$authdom,$authnum,
	$cdom,$cnum,
$ENV{'user.domain'},	$ENV{'user.domain'},
$ENV{'user.name'},	$ENV{'user.name'},
'Assigned from '.$ENV{'REMOTE_ADDR'}.' at '.localtime().' for '.	'Assigned from '.$ENV{'REMOTE_ADDR'}.' at '.localtime().' for '.