version 1.59, 2007/07/12 19:54:43
|
version 1.60, 2007/07/25 23:10:23
|
Line 45 my %hash; # variable to tie to user spec
|
Line 45 my %hash; # variable to tie to user spec
|
|
|
sub update_actions_hash { |
sub update_actions_hash { |
my ($hash) = @_; |
my ($hash) = @_; |
|
# be careful in here, there is also a global %hash |
my $acts=$env{'form.acts'}; |
my $acts=$env{'form.acts'}; |
my @Acts=split(/b/,$acts); |
my @Acts=split(/b/,$acts); |
my %ahash; |
my %ahash; |
my %achash; |
my %achash; |
my $ac=0; |
|
# some initial hashes for working with data |
# some initial hashes for working with data |
|
my $ac=0; |
foreach (@Acts) { |
foreach (@Acts) { |
my ($state,$ref)=split(/a/); |
my ($state,$ref)=split(/a/); |
$ahash{$ref}=$state; |
$ahash{$ref}=$state; |
$achash{$ref}=$ac; |
$achash{$ref}=$ac; |
$ac++; |
$ac++; |
Line 60 sub update_actions_hash {
|
Line 61 sub update_actions_hash {
|
# 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'}; |
$hash->{'storectr_'.$hash{'pre_'.$key.'_link'}}= |
$hash->{'storectr_'.$hash->{'pre_'.$key.'_link'}}= |
$hash->{'storectr'}+0; |
$hash->{'storectr'}+0; |
$hash->{'storectr'}++; |
$hash->{'storectr'}++; |
} |
} |
if ($ahash{$key} eq '0') { |
if ($ahash{$key} eq '0') { |
if ($hash->{'store_'.$hash{'pre_'.$key.'_link'}}) { |
if ($hash->{'store_'.$hash->{'pre_'.$key.'_link'}}) { |
delete($hash->{'store_'.$hash{'pre_'.$key.'_link'}}); |
delete($hash->{'store_'.$hash->{'pre_'.$key.'_link'}}); |
|
delete($hash->{'storectr_'.$hash->{'pre_'.$key.'_link'}}); |
} |
} |
} |
} |
} |
} |