|
version 1.17, 2006/04/05 22:28:58
|
version 1.18, 2006/04/05 22:40:29
|
|
Line 87 sub handler {
|
Line 87 sub handler {
|
| # ---------------------------------------------------------------- Get handover |
# ---------------------------------------------------------------- Get handover |
| &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']); |
| my $switch=''; |
my $switch=''; |
| my $bodytag=''; |
my $start_page=''; |
| my $relogmessage=''; |
my $relogmessage=''; |
| if ($env{'form.handover'}) { |
if ($env{'form.handover'}) { |
| $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='. |
$switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='. |
|
Line 107 sub handler {
|
Line 107 sub handler {
|
| <a href="/adm/login?domain=$sessionhash{'user.domain'}">$lt{'li'}</a>. |
<a href="/adm/login?domain=$sessionhash{'user.domain'}">$lt{'li'}</a>. |
| ENDRELOG |
ENDRELOG |
| } |
} |
| $end_page=&Apache::loncommon::end_page(); |
my $end_page=&Apache::loncommon::end_page(); |
| # --------------------------------------------------------------- Screen Output |
# --------------------------------------------------------------- Screen Output |
| $r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
| $start_page |
$start_page |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth