loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.40, 2002/08/08 19:29:30	version 1.41, 2002/08/21 17:18:08
Line 148 ENDREDIR	Line 148 ENDREDIR
return OK if $r->header_only;	return OK if $r->header_only;

my $swinfo=&Apache::lonmenu::rawconfig($r);	my $swinfo=&Apache::lonmenu::rawconfig($r);
	my $bodytag=&Apache::loncommon::bodytag('User Roles');
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html>	<html>
<head>	<head>
<title>LON-CAPA User Roles</title>	<title>LON-CAPA User Roles</title>
</head><body bgcolor="#FFFFFF">	</head>
	$bodytag
<script>	<script>
$swinfo	$swinfo
window.focus();	window.focus();
Line 186 ENDHEADER	Line 188 ENDHEADER
$r->print("Resource: $fn\n");	$r->print("Resource: $fn\n");
$r->print("Action : $msg\n</pre><hr>");	$r->print("Action : $msg\n</pre><hr>");
} else {	} else {
$r->print("<h1>LON-CAPA User Roles</h1>");
if ($ENV{'user.error.msg'}) {	if ($ENV{'user.error.msg'}) {
$r->print(	$r->print(
'<h3><font color=red>You need to choose another user role or '.	'<h3><font color=red>You need to choose another user role or '.
Line 209 ENDHEADER	Line 210 ENDHEADER
}	}
} else {	} else {
if ($advanced) {	if ($advanced) {
$r->print
("<h2>$ENV{'user.name'}, Please Select a Role</h2>\n");
$r->print("Your home server is ".	$r->print("Your home server is ".
$Apache::lonnet::hostname{&Apache::lonnet::homeserver	$Apache::lonnet::hostname{&Apache::lonnet::homeserver
($ENV{'user.name'},$ENV{'user.domain'})}.	($ENV{'user.name'},$ENV{'user.domain'})}.