loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.44, 2002/11/12 22:36:38	version 1.46, 2002/11/25 16:05:56
Line 157 ENDREDIR	Line 157 ENDREDIR
<title>LON-CAPA User Roles</title>	<title>LON-CAPA User Roles</title>
</head>	</head>
$bodytag	$bodytag
$helptag<p> </p>	$helptag<br />
<script>	<script>
$swinfo	$swinfo
window.focus();	window.focus();
Line 242 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});