version 1.92, 2004/05/21 19:16:35
|
version 1.94.2.1, 2004/08/03 18:55:46
|
Line 50 sub redirect_user {
|
Line 50 sub redirect_user {
|
# Note to style police: |
# Note to style police: |
# This must only replace the spaces, nothing else, or it bombs elsewhere. |
# This must only replace the spaces, nothing else, or it bombs elsewhere. |
$url=~s/ /\%20/g; |
$url=~s/ /\%20/g; |
$r->print (<<ENDREDIR); |
$r->print(<<ENDREDIR); |
<head><title>$title</title> |
<head><title>$title</title> |
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$url"> |
<meta HTTP-EQUIV="Refresh" CONTENT="1; url=$url"> |
</head> |
</head> |
Line 280 ENDENTERKEY
|
Line 280 ENDENTERKEY
|
|
|
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $swinfo=&Apache::lonmenu::rawconfig(); |
my $bodytag=&Apache::loncommon::bodytag('User Roles'); |
my $bodytag=&Apache::loncommon::bodytag('User Roles'); |
my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_topic |
my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_menu('','General Intro','General_Intro','User Roles',1,undef,undef,undef,undef,,&mt("Click here for help")).'</td></td></tr></table>'; |
("General_Intro",&mt("Click here for help")).'</td><td>'. |
|
&Apache::loncommon::help_open_faq(1,&mt('Click here for FAQ')).'</td><td>'. |
|
&Apache::loncommon::help_open_bug('',&mt('Click here to report bugs')).'</td></tr></table>'; |
|
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
<html> |
<html> |
<head> |
<head> |
Line 455 ENDHEADER
|
Line 452 ENDHEADER
|
$Apache::lonnet::hostname{$home}. |
$Apache::lonnet::hostname{$home}. |
'/adm/login?domain='.$ENV{'user.domain'}. |
'/adm/login?domain='.$ENV{'user.domain'}. |
'&username='.$ENV{'user.name'}. |
'&username='.$ENV{'user.name'}. |
'&firsturl=/priv/'.$trest); |
'&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 479 ENDHEADER
|
Line 476 ENDHEADER
|
$Apache::lonnet::hostname{$home}. |
$Apache::lonnet::hostname{$home}. |
'/adm/login?domain='.$ENV{'user.domain'}. |
'/adm/login?domain='.$ENV{'user.domain'}. |
'&username='.$ENV{'user.name'}. |
'&username='.$ENV{'user.name'}. |
'&firsturl=/priv/'.$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}; |