- if ($class->isa('Class::DBI::DFV')) {
- $obj = eval { My::DBI->create( $this_class_params ) };
- $dfv_results = ($obj) ? undef : $class->dfv_results ;
- } else {
- $dfv_results = Data::FormValidator->check($r->{params}, $class->dfv_profile);
- if ($dfv_results->success) {
- $obj = $class->create($this_class_params);
- }
+ my $this_class_params = {};
+ foreach my $param ( $class->columns ) {
+ next if ($param eq $class->columns('Primary'));
+ my $value = $r->params->{$param};
+ next unless (defined $value);
+ $this_class_params->{$param} = ( $value eq '' ) ? undef : $value;