loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.19, 2000/12/28 21:46:08	version 1.20, 2001/01/15 15:59:52
Line 6	Line 6
# 11/23 Gerd Kortemeyer)	# 11/23 Gerd Kortemeyer)
# 1/14,03/06,06/01,07/22,07/24,07/25,	# 1/14,03/06,06/01,07/22,07/24,07/25,
# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,	# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,
# 12/08,12/28 Gerd Kortemeyer	# 12/08,12/28,
	# 01/15/01 Gerd Kortemeyer
#	#
package Apache::lonroles;	package Apache::lonroles;

Line 58 sub handler {	Line 59 sub handler {
if ($cnum) {	if ($cnum) {
my ($furl,$ferr)=	my ($furl,$ferr)=
&Apache::lonuserstate::readmap($cdom.'/'.$cnum);	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
if ($ENV{'form.orgurl'}) {	if (($ENV{'form.orgurl'}) &&
	($ENV{'form.orgurl'}!~/^\/adm\/flip/)) {
$r->internal_redirect($ENV{'form.orgurl'});	$r->internal_redirect($ENV{'form.orgurl'});
return OK;	return OK;
} else {	} else {
$r->internal_redirect($furl);	$r->content_type('text/html');
return OK;	$r->send_http_header;
	print (<<ENDREDIR);
	<head><title>Entering Course</title>
	<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$furl">
	</head>
	<html>
	<body bgcolor="#FFFFFF">
	Entering course ...
	</body>
	</html>
	ENDREDIR
	return OK;
}	}
}	}
}	}
}	}
}	}
}	}
}	}


# =============================================================== No Roles Init	# =============================================================== No Roles Init