loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.43, 2002/08/31 00:43:12	version 1.46, 2002/11/25 16:05:56
Line 139 ENDREDIR	Line 139 ENDREDIR
}	}
}	}
}	}


# =============================================================== No Roles Init	# =============================================================== No Roles Init

Line 150 ENDREDIR	Line 150 ENDREDIR

my $swinfo=&Apache::lonmenu::rawconfig($r);	my $swinfo=&Apache::lonmenu::rawconfig($r);
my $bodytag=&Apache::loncommon::bodytag('User Roles');	my $bodytag=&Apache::loncommon::bodytag('User Roles');
	my $helptag=&Apache::loncommon::help_open_topic("General_Intro","HELP");
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html>	<html>
<head>	<head>
<title>LON-CAPA User Roles</title>	<title>LON-CAPA User Roles</title>
</head>	</head>
$bodytag	$bodytag
	$helptag<br />
<script>	<script>
$swinfo	$swinfo
window.focus();	window.focus();
Line 240 ENDHEADER	Line 242 ENDHEADER
my $button = 1;	my $button = 1;
if ($envkey=~/^user\.role\./) {	if ($envkey=~/^user\.role\./) {
my (undef,undef,$role,@pwhere)=split(/\./,$envkey);	my (undef,undef,$role,@pwhere)=split(/\./,$envkey);
	next if (!defined($role) \|\| $role eq '');
my $where=join('.',@pwhere);	my $where=join('.',@pwhere);
my $trolecode=$role.'.'.$where;	my $trolecode=$role.'.'.$where;
my ($tstart,$tend)=split(/\./,$ENV{$envkey});	my ($tstart,$tend)=split(/\./,$ENV{$envkey});