version 1.49, 2003/01/29 15:22:06
|
version 1.52, 2003/02/13 18:11:26
|
Line 36
|
Line 36
|
# 12/08,12/28, |
# 12/08,12/28, |
# YEAR=2001 |
# YEAR=2001 |
# 01/15/01 Gerd Kortemeyer |
# 01/15/01 Gerd Kortemeyer |
# 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/29 Gerd Kortemeyer |
# 12/29 Gerd Kortemeyer |
# |
# |
### |
### |
Line 117 sub handler {
|
Line 115 sub handler {
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
my $swinfo=&Apache::lonmenu::rawconfig($r); |
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $bodytag=&Apache::loncommon::bodytag('Switching Role'); |
my $bodytag=&Apache::loncommon::bodytag('Switching Role'); |
print (<<ENDREDIR); |
print (<<ENDREDIR); |
<head><title>Entering Course</title> |
<head><title>Entering Course</title> |
Line 148 ENDREDIR
|
Line 146 ENDREDIR
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $swinfo=&Apache::lonmenu::rawconfig($r); |
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $bodytag=&Apache::loncommon::bodytag('User Roles'); |
my $bodytag=&Apache::loncommon::bodytag('User Roles'); |
my $helptag=&Apache::loncommon::help_open_topic |
my $helptag=&Apache::loncommon::help_open_topic |
("General_Intro","<font size='+1'><b>CLICK HERE FOR HELP</b></font>"); |
("General_Intro","Click here for help"); |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
<head> |
<head> |
Line 312 ENDHEADER
|
Line 310 ENDHEADER
|
my $home = &Apache::lonnet::homeserver($trest,$tdom); |
my $home = &Apache::lonnet::homeserver($trest,$tdom); |
if ($home ne $r->dir_config('lonHostID')) { |
if ($home ne $r->dir_config('lonHostID')) { |
$button=0; |
$button=0; |
$switchserver='http://'. |
$switchserver=&Apache::lonnet::escape('http://'. |
$Apache::lonnet::hostname{$home}.'/priv/'.$trest; |
$Apache::lonnet::hostname{$home}. |
|
'/adm/login?domain='.$ENV{'user.domain'}. |
|
'&username='.$ENV{'user.name'}. |
|
'&firsturl=/priv/'.$trest); |
} |
} |
#next if ($home eq 'no_host'); |
#next if ($home eq 'no_host'); |
$home = $Apache::lonnet::hostname{$home}; |
$home = $Apache::lonnet::hostname{$home}; |
Line 327 ENDHEADER
|
Line 328 ENDHEADER
|
($ENV{'user.name'},$ENV{'user.domain'}); |
($ENV{'user.name'},$ENV{'user.domain'}); |
if ($home ne $r->dir_config('lonHostID')) { |
if ($home ne $r->dir_config('lonHostID')) { |
$button=0; |
$button=0; |
$switchserver='http://'. |
$switchserver=&Apache::lonnet::escape('http://'. |
$Apache::lonnet::hostname{$home}.'/priv/'. |
$Apache::lonnet::hostname{$home}. |
$ENV{'user.name'}; |
'/adm/login?domain='.$ENV{'user.domain'}. |
|
'&username='.$ENV{'user.name'}. |
|
'&firsturl=/priv/'.$ENV{'user.name'}); |
} |
} |
#next if ($home eq 'no_host'); |
#next if ($home eq 'no_host'); |
$home = $Apache::lonnet::hostname{$home}; |
$home = $Apache::lonnet::hostname{$home}; |