fixing bugs resulting from new form package
This commit is contained in:
parent
6ae2995591
commit
9c3a4eb309
5 changed files with 37 additions and 78 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue