version 1.163, 2007/06/27 23:27:23
|
version 1.164, 2007/06/28 21:42:49
|
Line 128 sub handler {
|
Line 128 sub handler {
|
if ($env{'form.launch'} eq '1') { |
if ($env{'form.launch'} eq '1') { |
&start_fresh_session(\%dbfile); |
&start_fresh_session(\%dbfile); |
} |
} |
|
|
while(my($key,$value)=each(%dbfile)) { |
while(my($key,$value)=each(%dbfile)) { |
$hash{$key}=$value; |
$hash{$key}=$value; |
} |
} |
Line 409 ENDHEADER
|
Line 408 ENDHEADER
|
$ac++; |
$ac++; |
} |
} |
# sorting through the actions and changing the global database hash |
# sorting through the actions and changing the global database hash |
foreach (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) { |
foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) { |
my $key=$_; |
|
if ($ahash{$key} eq '1') { |
if ($ahash{$key} eq '1') { |
$hash{'store_'.$hash{'pre_'.$key.'_link'}}= |
$hash{'store_'.$hash{'pre_'.$key.'_link'}}=1; |
$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'}++; |