version 1.132, 2006/06/13 14:42:24
|
version 1.133, 2006/06/14 18:34:46
|
Line 150 sub get_recent {
|
Line 150 sub get_recent {
|
|
|
# Create hash with key as time and recent as value |
# Create hash with key as time and recent as value |
my %time_hash = (); |
my %time_hash = (); |
|
my $nfrozen = 0; |
foreach (keys %recent) { |
foreach (keys %recent) { |
my $thistime=(split(/\&/,$recent{$_}))[0]; |
my ($thistime,$thisvalue)=(split(/\&/,$recent{$_})); |
|
if (($thisvalue eq 'role_frozen') && ($area='roles')) { |
|
$thistime=time+$nfrozen; |
|
$nfrozen++; |
|
} |
$time_hash{$thistime} = $_; |
$time_hash{$thistime} = $_; |
} |
} |
|
|
Line 160 sub get_recent {
|
Line 165 sub get_recent {
|
my $idx = 1; |
my $idx = 1; |
foreach (reverse sort keys %time_hash) { |
foreach (reverse sort keys %time_hash) { |
$return_hash{$time_hash{$_}} = |
$return_hash{$time_hash{$_}} = |
&unescape((split(/\&/,$recent{$_}))[1]); |
&unescape((split(/\&/,$recent{$time_hash{$_}}))[1]); |
if ($n && ($idx++ >= $n)) {last;} |
if ($n && ($idx++ >= $n)) {last;} |
} |
} |
|
|