loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.92 and 1.99

version 1.92, 2004/05/21 19:16:35	version 1.99, 2004/09/02 13:15:54
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');
# 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>
<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 76 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 246 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 280 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 455 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 479 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};
Line 600 ENDHEADER	Line 605 ENDHEADER
unless ($nochoose) { $r->print('<th> </th>'); }	unless ($nochoose) { $r->print('<th> </th>'); }
$r->print('<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent').	$r->print('<th>'.&mt('User Role').'</th><th colspan=2>'.&mt('Extent').
'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.	'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.
&mt('Remark').'</th></tr>'."\n");	&mt('Remarks and Calendar Announcements').'</th></tr>'."\n");
my $doheaders=-1;	my $doheaders=-1;
foreach my $type ('Construction Space','Course','Domain','System') {	foreach my $type ('Construction Space','Course','Domain','System') {
my $haverole=0;	my $haverole=0;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.92
changed lines
	Added in v.1.99