fixing bugs resulting from new form package

This commit is contained in:
JT Smith 2005-07-28 20:18:37 +00:00
parent 6ae2995591
commit 9c3a4eb309
5 changed files with 37 additions and 78 deletions

View file

@ -302,9 +302,7 @@ sub new {
%raw = @_;
}
my %params;
# Ensure that overrides overwrite the previously defined definition of a field
my @reversedDefinitions = reverse @{$class->definition};
foreach my $definition (@reversedDefinitions) {
foreach my $definition (reverse @{$class->definition}) {
foreach my $fieldName (keys %{$definition}) {
my $value = $raw{$fieldName};
# if we have no value, try the tagged name