version 1.41, 2009/12/10 18:21:22
|
version 1.42, 2010/01/01 23:17:31
|
Line 3000 sub update_requestors_roles {
|
Line 3000 sub update_requestors_roles {
|
@roles = ($ccrole); |
@roles = ($ccrole); |
} |
} |
foreach my $role (@roles) { |
foreach my $role (@roles) { |
my $start = $now; |
my $refresh=$env{'user.refresh.time'}; |
|
if ($refresh eq '') { |
|
$refresh = $env{'user.login.time'}; |
|
} |
|
if ($refresh eq '') { |
|
$refresh = $now; |
|
} |
|
my $start = $refresh-1; |
my $end = '0'; |
my $end = '0'; |
if ($role eq 'st') { |
if ($role eq 'st') { |
if ($details->{'accessstart'} ne '') { |
if ($details->{'accessstart'} ne '') { |