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