version 1.73, 2013/07/15 14:32:44
|
version 1.74, 2014/12/11 00:31:05
|
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'}; |