Hi Carl,
So today found how to create my own errors on FormFu thats example of my
hacks ;-)
package HTML::FormFu::Model::DBIC::Validated;
use strict;
use warnings;
use base 'HTML::FormFu::Model::DBIC';
use Data::Dumper;
use DBIx::Class::Validation::Dictionary qw/hummable/;
use Carp qw( croak );
our $VERSION = '0.00001';
$VERSION = eval $VERSION;
sub submitted_and_valid {
my ( $self, $dbic ) = @_;
croak "row object missing" if !defined $dbic;
my $form = $self->form;
return undef unless $form->submitted();
my $form_submitted_and_valid = $form->submitted_and_valid();
HTML::FormFu::Model::DBIC::_save_columns( $form, $dbic, $form ) or
return;
eval { $dbic->validate() };
return $form_submitted_and_valid unless my $dbic_validation_result = $@;
return $form_submitted_and_valid unless
$dbic_validation_result->has_error;
my $errors = {};
foreach my $key ( @{ $dbic_validation_result->error() } ) {
my $comma = '';
foreach my $type ( @{ $dbic_validation_result->error($key) } ) {
$errors->{$key} .= $comma . hummable($type);
$comma = ',';
}
}
foreach my $field ( @{ $form->get_fields } ) {
my $name = $field->nested_name;
next unless defined $errors->{$name};
my $base_validator;
$base_validator = HTML::FormFu::Validator->new(
{ type => 'dynamicValidator', parent => $field
} );
push @{ $field->{_validators} }, $base_validator;
my $error =
HTML::FormFu::Exception::Validator->new(
{ message =>
$errors->{$name} },
);
$error->parent( $base_validator->parent );
$error->validator($base_validator);
$field->add_error($error);
}
return $form_submitted_and_valid &&
!$dbic_validation_result->has_error();
}
Best Regards
Sergiy Zaschipas
2009/10/29 Serge Zaschipas <se...@uacoders.com>
> Hi Carl,
> I just plays with FormFu to find solution of my problem.
> There is example what I want:
> 1) I want use DBIx::Class for model
> 2) I want use DBIx::Class::Validation as model validator
> This points I have done and checked in my example:
>
> package pf2::Schema::Result::Switch;
> use strict;
> use warnings;
> use base 'DBIx::Class';
>
> __PACKAGE__->load_components(qw/Core Validation/);
> __PACKAGE__->table("switch");
>
> #<there is my class definition>
>
> #thee is my Validation profile which must check 'name' field for UNIQUE in
> `switch` table;
> #in example used FormValidator::Simple::Plugin::DBIC::Unique;
>
> use FormValidator::Simple qw/DBIC::Unique/;
> $DBIx::Recordset::PreserveCase = 1;
> my $profile = sub {
> my ($result) = @_;
> return [
> name => [[ 'DBIC_UNIQUE', $result->result_source->resultset,
> 'name']],
> ];
> };
>
> __PACKAGE__->validation(
> module => 'FormValidator::Simple',
> profile => $profile,
> filter => 0,
> auto => 0,
> );
>
> #----------------------------
>
> When I use FormFu i do
>
> if($form->submitted_and_valid){
> $form->model->update($switch);
> } else {
> $form->model->default_values($switch);
> }
>
> So in my point of view inside submitted_and_valid must be DBIC validation
> too (fill some $_switch object and call $_switch->validate();)
> In case of errors they must be added as exceptions and properly displayed
> on form.
>
> I just play around and tried to implement it by inheritance of FormFu but
> yet have problems with adding exceptions to the form...
>
> in controller i will use next code
> if($form->model('DBIC::Validated')->submitted_and_valid($switch)){
> $form->model->update($switch);
> } else {
> $form->model->default_values($switch);
> }
>
> Also did some own class based on 'HTML::FormFu::Model::DBIC';
>
>
> package HTML::FormFu::Model::DBIC::Validated;
> use strict;
> use warnings;
> use base 'HTML::FormFu::Model::DBIC';
> use Data::Dumper;
>
> use Carp qw( croak );
>
> our $VERSION = '0.00001';
> $VERSION = eval $VERSION;
>
> sub submitted_and_valid{
> my ($self, $dbic) =...@_;
> croak "row object missing" if !defined $dbic;
> my $form = $self->form;
>
> return undef unless $form->submitted();
>
> my $form_submitted_and_valid = $form->submitted_and_valid();
>
> HTML::FormFu::Model::DBIC::_save_columns($form, $dbic, $form ) or
> return;
> eval { $dbic->validate() };
> return $form_submitted_and_valid unless my $dbic_validation_result =
> $@;
> return $form_submitted_and_valid unless
> $dbic_validation_result->has_error;
> my $errors ={};
>
> foreach my $key ( @{ $dbic_validation_result->error() } ) {
> my $comma = '';
> foreach my $type ( @{ $dbic_validation_result->error($key) } ) {
> $errors->{$key} .= $comma."invalid: $key - $type ";
> $comma = ','
> }
> }
>
> foreach my $field ( @{ $form->get_fields } ){
> my $name = $field->nested_name;
> next unless defined $errors->{$name};
>
> #PROBLEM A
> # there I have problem with adding error message on form element yet
> my $error = HTML::FormFu::Exception::Validation->new({message
> =>'must be unique'});
>
> #$error->validator($v);
> #push @{$field->_validators}, $error;
> $field->add_error($error);
>
>
> }
> return $form_submitted_and_valid &&
> !$dbic_validation_result->has_error();
> }
>
> 1;
>
> Maybe it is a little brutal solution as soon as i not fully investigated
> FormFu inside but in case if i can add on form field my custom message in
> PROBLEM A then i have acceptable solution for my task...
>
>
> 2009/10/29 Serge Zaschipas <se...@uacoders.com>
>
> 2009/10/27 Carl Franks <fireart...@gmail.com>
>>
>> Hi Sergiy,
>>>
>>> It would probably be possible to provide a compatible check() method,
>>> but I'm not sure how far it would get you.
>>>
>>> As far as FormFu is concerned, a single form doesn't have to represent
>>> just a single database row, but can also represent related rows or
>>> resultsets.
>>>
>>> Where would your validation profile be defined?
>>> DBIx::Class::Validation expects each resultsource class to provide a
>>> validation_profile() method which provides the profile.
>>> Would you want that to be shared between DBIx::Class::Validation and
>>> HTML::FormFu ?
>>>
>>> If you can give an example of how you might expect it all to fit
>>> together, I could probably give a better answer of whether FormFu
>>> would be a good choice for this.
>>>
>>> Cheers,
>>> Carl
>>>
>>>
>>> 2009/10/26 Serge Zaschipas <se...@uacoders.com>:
>>> > Hi,
>>> > I use Catalyst + DBIx + FormFu
>>> > I just porting relatively big application with lot of tables to
>>> Catalyst.
>>> > I need make validations on model side (very complex business logic
>>> which
>>> > must be implemented on model level).
>>> > So question is: Is there a native way to use FormFu with
>>> > DBIx::Class::Validation?
>>> > I tried HTML::FormFu::Validator but seems $form->submitted_and_valid()
>>> > validate FormFu constraints only + validate with
>>> > HTML::FormFu::Validator::validate_value()
>>> >
>>> > Best Regards
>>> > Sergiy Zaschipas
>>> >
>>> > _______________________________________________
>>> > HTML-FormFu mailing list
>>> > HTML-FormFu@lists.scsys.co.uk
>>> > http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/html-formfu
>>> >
>>>
>>> _______________________________________________
>>> HTML-FormFu mailing list
>>> HTML-FormFu@lists.scsys.co.uk
>>> http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/html-formfu
>>>
>>
>>
>
_______________________________________________
HTML-FormFu mailing list
HTML-FormFu@lists.scsys.co.uk
http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/html-formfu
