loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.45, 2002/11/13 16:54:59	version 1.46, 2002/11/25 16:05:56
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});