Re-fixed #11379, with tests this time.

This commit is contained in:
Paul Driver 2011-07-19 16:38:17 -05:00
parent 2ce2d7611a
commit a4ee31feef
2 changed files with 44 additions and 1 deletions

View file

@ -1226,7 +1226,8 @@ sub setupFormField {
my $overrideTab = delete $overrideParams{tab};
$tab = $overrideTab if defined $overrideTab;
foreach my $key (keys %overrideParams) {
$params{"-$key"} = $overrideParams{$key};
(my $canon = $key) =~ s/^-//;
$params{$canon} = $overrideParams{$key};
}
}