version 1.90, 2004/05/08 16:26:32
|
version 1.98, 2004/08/23 18:57:16
|
Line 40 use Apache::lonannounce;
|
Line 40 use Apache::lonannounce;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
sub redirect_user { |
sub redirect_user { |
my ($r,$title,$url,$msg) = @_; |
my ($r,$title,$url,$msg,$launch_nav) = @_; |
$msg = $title if (! defined($msg)); |
$msg = $title if (! defined($msg)); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'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(); |
my $swinfo=&Apache::lonmenu::rawconfig(); |
|
my $navwindow; |
|
if ($launch_nav eq 'on') { |
|
$navwindow.=&Apache::lonnavmaps::launch_win('now'); |
|
} else { |
|
$navwindow.=&Apache::lonnavmaps::close(); |
|
} |
my $bodytag=&Apache::loncommon::bodytag('Switching Role'); |
my $bodytag=&Apache::loncommon::bodytag('Switching Role'); |
$r->print (<<ENDREDIR); |
# Note to style police: |
|
# This must only replace the spaces, nothing else, or it bombs elsewhere. |
|
$url=~s/ /\%20/g; |
|
$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> |
<html> |
<html> |
$bodytag |
$bodytag |
<script> |
<script type="text/javascript"> |
$swinfo |
$swinfo |
</script> |
</script> |
|
$navwindow |
<h1>$msg</h1> |
<h1>$msg</h1> |
|
<a href="$url">Continue</a> |
</body> |
</body> |
</html> |
</html> |
ENDREDIR |
ENDREDIR |
Line 73 sub handler {
|
Line 84 sub handler {
|
|
|
|
|
# ================================================================== Roles Init |
# ================================================================== Roles Init |
|
|
if ($ENV{'form.selectrole'}) { |
if ($ENV{'form.selectrole'}) { |
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
my %temp=('logout_'.$ENV{'request.course.id'} => time); |
my %temp=('logout_'.$ENV{'request.course.id'} => time); |
Line 135 sub handler {
|
Line 145 sub handler {
|
&Apache::lonnet::assign_access_key( |
&Apache::lonnet::assign_access_key( |
$ENV{'form.newkey'}, |
$ENV{'form.newkey'}, |
$authdom,$authnum, |
$authdom,$authnum, |
|
$cdom,$cnum, |
$ENV{'user.domain'}, |
$ENV{'user.domain'}, |
$ENV{'user.name'}, |
$ENV{'user.name'}, |
'Assigned from '.$ENV{'REMOTE_ADDR'}.' at '.localtime().' for '. |
'Assigned from '.$ENV{'REMOTE_ADDR'}.' at '.localtime().' for '. |
Line 242 ENDENTERKEY
|
Line 253 ENDENTERKEY
|
# |
# |
# Send the user to the course they selected |
# Send the user to the course they selected |
&redirect_user($r,&mt('Entering Course'), |
&redirect_user($r,&mt('Entering Course'), |
$furl,$msg); |
$furl,$msg, |
|
$ENV{'environment.remotenavmap'}); |
return OK; |
return OK; |
} |
} |
} |
} |
Line 276 ENDENTERKEY
|
Line 288 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 451 ENDHEADER
|
Line 460 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 475 ENDHEADER
|
Line 484 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}; |