|
version 1.32, 2001/12/21 16:57:54
|
version 1.34, 2002/02/01 12:54:51
|
|
Line 39
|
Line 39
|
| # 02/27/01 Scott Harrison |
# 02/27/01 Scott Harrison |
| # 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer |
# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer |
| # 12/21 Scott Harrison |
# 12/21 Scott Harrison |
| |
# 12/29 Gerd Kortemeyer |
| # |
# |
| ### |
### |
| |
|
|
Line 64 sub handler {
|
Line 65 sub handler {
|
| # ================================================================== Roles Init |
# ================================================================== Roles Init |
| |
|
| if ($ENV{'form.selectrole'}) { |
if ($ENV{'form.selectrole'}) { |
| |
if ($ENV{'request.course.id'}) { |
| |
my %temp=('logout_'.$ENV{'request.course.id'} => time); |
| |
&Apache::lonnet::put('email_status',\%temp); |
| |
} |
| &Apache::lonnet::appenv("request.course.id" => '', |
&Apache::lonnet::appenv("request.course.id" => '', |
| "request.course.fn" => '', |
"request.course.fn" => '', |
| "request.course.uri" => '', |
"request.course.uri" => '', |
|
Line 303 ENDHEADER
|
Line 308 ENDHEADER
|
| $twhere='Currently not available'; |
$twhere='Currently not available'; |
| $ENV{'course.'.$tcourseid.'.description'}=$twhere; |
$ENV{'course.'.$tcourseid.'.description'}=$twhere; |
| } |
} |
| |
if ($trole ne 'st') { |
| |
$twhere.="<br />Domain:".$tdom; |
| |
} |
| } |
} |
| } |
} |
| } elsif ($tdom) { |
} elsif ($tdom) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonroles.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth