This commit is contained in:
Len Kranendonk 2006-01-14 23:32:00 +00:00
parent 07c7cf6098
commit e511f6ee85

View file

@ -439,7 +439,7 @@ sub new {
%raw = @_; %raw = @_;
} }
my %params; my %params;
foreach my $definition (reverse @{$class->definition}) { foreach my $definition (reverse @{$class->definition($session)}) {
foreach my $fieldName (keys %{$definition}) { foreach my $fieldName (keys %{$definition}) {
my $value = $raw{$fieldName}; my $value = $raw{$fieldName};
# if we have no value, try the tagged name # if we have no value, try the tagged name