loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.24, 2001/05/03 17:54:12	version 1.25, 2001/05/25 19:38:42
Line 9	Line 9
# 12/08,12/28,	# 12/08,12/28,
# 01/15/01 Gerd Kortemeyer	# 01/15/01 Gerd Kortemeyer
# 02/27/01 Scott Harrison	# 02/27/01 Scott Harrison
# 03/02,05/03 Gerd Kortemeyer	# 03/02,05/03,05/25 Gerd Kortemeyer

package Apache::lonroles;	package Apache::lonroles;

Line 58 sub handler {	Line 58 sub handler {
my ($cdom,$cnum,$csec)=split(/\//,$where);	my ($cdom,$cnum,$csec)=split(/\//,$where);
&Apache::lonnet::appenv('request.role' => $trolecode,	&Apache::lonnet::appenv('request.role' => $trolecode,
'request.course.sec' => $csec);	'request.course.sec' => $csec);
if ($cnum) {	if (($cnum) && ($role ne 'ca')) {
my ($furl,$ferr)=	my ($furl,$ferr)=
&Apache::lonuserstate::readmap($cdom.'/'.$cnum);	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
if (($ENV{'form.orgurl'}) &&	if (($ENV{'form.orgurl'}) &&
Line 130 ENDHEADER	Line 130 ENDHEADER
$r->print("Action : $msg\n</pre><hr>");	$r->print("Action : $msg\n</pre><hr>");
} else {	} else {
$r->print("<h1>LON-CAPA User Roles</h1>");	$r->print("<h1>LON-CAPA User Roles</h1>");
	if ($ENV{'user.error.msg'}) {
	$r->print(
	'<h3><font color=red>You need to choose another user role or '.
	'enter a specific course for this function</font></h3>');
	}
}	}
# -------------------------------------------------------- Choice or no choice?	# -------------------------------------------------------- Choice or no choice?
if ($nochoose) {	if ($nochoose) {