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 = @_;
}
my %params;
foreach my $definition (reverse @{$class->definition}) {
foreach my $definition (reverse @{$class->definition($session)}) {
foreach my $fieldName (keys %{$definition}) {
my $value = $raw{$fieldName};
# if we have no value, try the tagged name