version 1.224, 2005/06/17 18:11:42
|
version 1.225, 2005/06/17 18:29:45
|
Line 2590 ENDDEFHEAD
|
Line 2590 ENDDEFHEAD
|
if ($env{'form.storerules'}) { |
if ($env{'form.storerules'}) { |
my %newrules=(); |
my %newrules=(); |
my @delrules=(); |
my @delrules=(); |
foreach (keys %env) { |
foreach my $key (keys(%env)) { |
if ($_=~/^form\.(\w+)\_action$/) { |
if ($key=~/^form\.(\w+)\_action$/) { |
my $tempkey=$1; |
my $tempkey=$1; |
if ($env{$_}) { |
if ($env{$key}) { |
$newrules{$tempkey.'_action'}=$env{$_}; |
$newrules{$tempkey.'_action'}=$env{$key}; |
if (&isdateparm($defkeytype{$tempkey})) { |
if (&isdateparm($defkeytype{$tempkey})) { |
$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'}; |
$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'}; |
$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'}; |
$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'}; |
Line 2603 ENDDEFHEAD
|
Line 2603 ENDDEFHEAD
|
$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'}; |
$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'}; |
} |
} |
} else { |
} else { |
push @delrules,$tempkey.'_action'; |
push(@delrules,$tempkey.'_action'); |
push @delrules,$tempkey.'_hours'; |
push(@delrules,$tempkey.'_hours'); |
push @delrules,$tempkey.'_min'; |
push(@delrules,$tempkey.'_min'); |
push @delrules,$tempkey.'_sec'; |
push(@delrules,$tempkey.'_sec'); |
push @delrules,$tempkey.'_value'; |
push(@delrules,$tempkey.'_value'); |
} |
} |
} |
} |
} |
} |