version 1.68.6.6, 2013/08/08 12:08:01
|
version 1.68.6.7, 2015/03/12 02:12:40
|
Line 59 sub update_actions_hash {
|
Line 59 sub update_actions_hash {
|
$ac++; |
$ac++; |
} |
} |
# sorting through the actions and changing the global database hash |
# sorting through the actions and changing the global database hash |
foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) { |
foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys(%ahash))) { |
if ($ahash{$key} eq '1') { |
if ($ahash{$key} eq '1') { |
$hash->{'store_'.$hash->{'pre_'.$key.'_link'}}= |
$hash->{'store_'.$hash->{'pre_'.$key.'_link'}}= |
$hash->{'pre_'.$key.'_title'}; |
$hash->{'pre_'.$key.'_title'}; |