version 1.110, 2012/12/13 22:03:24
|
version 1.111, 2013/03/05 22:51:48
|
Line 532 sub display_actions_box {
|
Line 532 sub display_actions_box {
|
$headings{'crslogin'} = &mt('Last login for users in last 24 hours'); |
$headings{'crslogin'} = &mt('Last login for users in last 24 hours'); |
} |
} |
|
|
my $now = time; |
my ($now,$starttime,$activatedstart,$expiredstart,$crsloginstart); |
|
$now = time; |
|
|
if ($timediff{'versions'} == -1) { |
if ($timediff{'versions'} == -1) { |
$timediff{'versions'} = time; |
$starttime = 0; |
|
} else { |
|
$starttime = $now - $timediff{'versions'}; |
} |
} |
my $starttime = $now - $timediff{'versions'}; |
|
|
|
if ($timediff{'newroles'} == -1) { |
if ($timediff{'newroles'} == -1) { |
$timediff{'newroles'} = time; |
$activatedstart = 0; |
|
} else { |
|
$activatedstart = $now - $timediff{'newroles'}; |
} |
} |
my $activatedstart = $now - $timediff{'newroles'}; |
|
|
|
if ($timediff{'oldroles'} == -1) { |
if ($timediff{'oldroles'} == -1) { |
$timediff{'oldroles'} = time; |
$expiredstart = 0; |
|
} else { |
|
$expiredstart = $now - $timediff{'oldroles'}; |
} |
} |
my $expiredstart = $now - $timediff{'oldroles'}; |
|
|
|
if ($timediff{'crslogin'} == -1) { |
if ($timediff{'crslogin'} == -1) { |
$timediff{'crslogin'} = time; |
$crsloginstart = 0; |
|
} else { |
|
$crsloginstart = $now - $timediff{'crslogin'}; |
} |
} |
|
|
my $crsloginstart = $now - $timediff{'crslogin'}; |
|
|
|
my $countunread = $display_settings{$cid.':countunread'}; |
my $countunread = $display_settings{$cid.':countunread'}; |
unless (defined($countunread)) { |
unless (defined($countunread)) { |
$countunread = 'on'; |
$countunread = 'on'; |
Line 1340 sub getactivated {
|
Line 1345 sub getactivated {
|
my (%stucounted,%advcounted); |
my (%stucounted,%advcounted); |
my $activatedcount = 0; |
my $activatedcount = 0; |
if (keys(%changes) > 0) { |
if (keys(%changes) > 0) { |
foreach my $chg (sort { $b <=> $a } (keys(%changes))) { |
foreach my $chg (keys(%changes)) { |
if (ref($changes{$chg}) eq 'HASH') { |
if (ref($changes{$chg}) eq 'HASH') { |
my $timestamp = $changes{$chg}{'exe_time'}; |
if ($rolechgtime > 0) { |
if ($timestamp) { |
next if ($changes{$chg}{'exe_time'} < $rolechgtime); |
if ($rolechgtime > 0) { |
} |
if ($timestamp < $rolechgtime) { |
if ($changes{$chg}{'exe_time'}) { |
last; |
my $timestamp = $changes{$chg}{'exe_time'}; |
} |
|
} |
|
if (ref($changes{$chg}{'logentry'}) eq 'HASH') { |
if (ref($changes{$chg}{'logentry'}) eq 'HASH') { |
next if ($changes{$chg}{'delflag'}); |
next if ($changes{$chg}{'delflag'}); |
my $start = $changes{$chg}{'logentry'}{'start'}; |
my $start = $changes{$chg}{'logentry'}{'start'}; |