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.49 and 1.52

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};

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

Removed from v.1.49
changed lines
	Added in v.1.52