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) { |