version 1.10, 2000/10/04 14:09:01
|
version 1.12, 2000/10/05 19:15:34
|
Line 5
|
Line 5
|
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
# 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 Gerd Kortemeyer |
# 09/04,09/06,09/28,09/29,09/30,10/2,10/5 Gerd Kortemeyer |
# |
# |
package Apache::lonroles; |
package Apache::lonroles; |
|
|
Line 49 sub handler {
|
Line 49 sub handler {
|
my ($cdom,$cnum)=split(/\//,$where); |
my ($cdom,$cnum)=split(/\//,$where); |
if ($cnum) { |
if ($cnum) { |
&Apache::lonuserstate::readmap($where); |
&Apache::lonuserstate::readmap($where); |
$r->internal_redirect($ENV{'form.orgurl'}); |
if ($ENV{'form.orgurl'}) { |
return OK; |
$r->internal_redirect($ENV{'form.orgurl'}); |
|
return OK; |
|
} |
} |
} |
} |
} |
} |
} |
Line 75 ENDHEADER
|
Line 77 ENDHEADER
|
# ------------------------------------------ Get Error Message from Environment |
# ------------------------------------------ Get Error Message from Environment |
|
|
my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'}); |
my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'}); |
$r->log_reason( |
if ($ENV{'user.error.msg'}) { |
"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn); |
$r->log_reason( |
|
"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn); |
|
} |
|
|
# ---------------------------------------------------------------- Who is this? |
# ---------------------------------------------------------------- Who is this? |
|
|
Line 123 ENDHEADER
|
Line 127 ENDHEADER
|
} else { |
} else { |
$r->print("<h2>Enter a Course</h2>\n"); |
$r->print("<h2>Enter a Course</h2>\n"); |
} |
} |
$r->print('<form method=post action="'.$r->uri.'">'); |
$r->print('<form method=post action="'.(($fn)?$fn:$r->uri).'">'); |
$r->print('<input type=hidden name=orgurl value="'.$fn.'">'); |
$r->print('<input type=hidden name=orgurl value="'.$fn.'">'); |
$r->print('<input type=hidden name=selectrole value=1>'); |
$r->print('<input type=hidden name=selectrole value=1>'); |
} |
} |