Hi,
I'm still hanging in there.
Two things:
1. $form->process(
item => $new_user,
params => $c->request->parameters,
);
Calling 'process' without schema shows:
Caught exception in Nectar::WebV2::Controller::Auth->register "Can't
call method "_count_select" on an undefined value at
/home/sung/perl5/lib/perl5/DBIx/Class/ResultSet.pm line 1494."
2. $form->process(
item => $new_user,
params => $c->request->parameters,
schema => $c->model("NECTAR")->schema,
);
With the 'schema' on:
Can't call method "insert" on an undefined value at
/home/sung/perl5/lib/perl5/DBIx/Class/Row.pm line 351. at
/home/sung/perl5/lib/perl5/DBIx/Class/Schema.pm line 1088
And looking at where the error has risen:
1. At line 1494 ResultSet.pm: $tmp_attrs->{select} =
$rsrc->storage->_count_select ($rsrc, $attrs);
2. At line 351 Row.pm: my $returned_cols = $storage->insert(...
both of the 'storage' above returns undef (confirmed by printing them
out $new_user->result_source->storage)
With the 'schema' attribute within the process method above, it seems
form validation works OK (e.g. checking such as required values and
duplicates, password confirmation...)
What did I do wrong?
Regards,
Sung
On 7 March 2012 16:09, Sungsam Gong <gong.sung...@gmail.com> wrote:
> On 6 March 2012 22:29, Gerda Shank <gerda.sh...@gmail.com> wrote:
>> On 3/6/12 12:13 PM, Sungsam Gong wrote:
>>>
>>> Dear Gerda,
>>>
>>> Thanks for making HTML::FormHandler, which I found very useful.
>>>
>>> I was trying to make a simple registration page using
>>> HTML::FormHandler, but couldn't make it through.
>>> The form itself looks OK, but after clicking the submit button, I got
>>> an error message which I dumped below:
>>>
>> Sungsam:
>>
>> You've left off a lot of the pertinent information, including your form and
>> the result source class.
>
> lib/Nectar/Form/Register.pm :
> package Nectar::Form::Register;
>
> use HTML::FormHandler::Moose;
> extends 'HTML::FormHandler::Model::DBIC';
> with 'HTML::FormHandler::Render::Table';
>
> has '+item_class' => ( default => 'NECTAR::User' );
>
> has_field 'username' => ( type => 'Text', required=>1, unique=>1);
> has_field 'first_name' => ( type => 'Text' );
> has_field 'last_name' => ( type => 'Text' );
> has_field 'email' => (type => 'Email', required => 1, unique => 1);
> has_field 'password' => ( type => 'Password' );
> has_field 'password_confirm' => ( type => 'PasswordConf' );
> has_field 'submit' => ( type => 'Submit', value => 'Register' );
>
> has '+unique_messages' =>( default => sub { { user_email =>'Email
> already registered' } } );
>
> no HTML::FormHandler::Moose;
> __PACKAGE__->meta->make_immutable;
> 1;
>
> lib/Nectar/Schema/NECTAR/Result/User.pm:
> use utf8;
> package Nectar::Schema::NECTAR::Result::User;
> # Created by DBIx::Class::Schema::Loader
> Nectar::Schema::NECTAR::Result::User
> use strict;
> use warnings;
> use Moose;
> use MooseX::NonMoose;
> use MooseX::MarkAsMethods autoclean => 1;
> extends 'DBIx::Class::Core';
> __PACKAGE__->load_components("InflateColumn::DateTime");
> __PACKAGE__->table("Users");
> ...
> ...
>
>
>> This: Nectar::WebV2::Model::NECTAR::User doesn't
>> look exactly like a DBIC row object, just from the name.
>
> It is a DBIC resultset and 'new_result' method is called as per your manual:
> my $new_user= $c->model("NECTAR::User")->new_result({});
>
>> And since the
>> update code is failing, there's got to be something wrong in the
>> relationship to DBIC.
>
> DBIC works well with my app - just wanted to top up registration
> functions without reinventing wheels.
> Actually, 'User' is being used to the Auth plugin with DBIx::Class
> back-end, which works with no problem.
>
> HTML::FormHandler isn't perl 5.10 specific, is it?
> cpanm error codes show perl v5.10 specific requirment:
> Perl v5.10.0 required--this is only v5.8.8, stopped at
> /home/sung/.cpanm/work/1330962009.9533/HTML-FormHandler-0.36003/blib/lib/HTML/FormHandler/Foo.pm
> line 9
>
>
>> The update is done in the 'update_model' sub. You
>> might want to see what's in the $form->value that's supposed to be passed to
>> DBIx::Class::ResultSet::RecursiveUpdate. That interface is pretty simple.
>> You can take the value hashref and pass it to RecursiveUpdate yourself,
>> which might be easier to debug.
>>
>
> Thanks for the info - will give it a go.
_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/
