view release on metacpan or  search on metacpan

lib/Form/Processor/Model/DOD.pm  view on Meta::CPAN

Validation is run unless validation has already been
run.  ($form->clear might need to be called if the $form object stays in memory
between requests.)

Pass in hash reference of parameters.

Returns false if form does not validate.  Very likely dies on database errors.

=cut

sub update_from_form {
   my($model, $params) = @_;

    return unless $model->validate($params);

    # Grab either the item or the object class.
    my $item = $model->item;
    my $class = ref( $item ) || $model->object_class;

    # get a hash of all fields
    my %fields = map { $_->name, $_ } grep { !$_->noupdate } $model->fields;