Hello Monks,
I am trying to figure out how to get HTML::FormHandler to update related rows in different tables. It seems to follow the many_to_many relationship without issue, but it does not seem to honor the has_one relationship.
The full code that I'm working with is here: https://github.com/three18ti/catalyst-app.git I'm currently working on the "profile-attempt2" branch
I have my User and Profile Classes:
package MyApp::Schema::Result::User;
use Moose;
use MooseX::NonMoose;
use namespace::autoclean;
use List::MoreUtils qw(any none);
extends 'MyApp::Schema::Result';
__PACKAGE__->table('user');
__PACKAGE__->load_components( qw( EncodedColumn ) );
__PACKAGE__->add_columns(
id => {
data_type => 'integer',
size => 16,
is_nullable => 0,
is_auto_increment => 1
},
username => {
data_type => 'varchar',
size => 256,
is_nullable => 0,
is_auto_increment => 0,
},
);
__PACKAGE__->set_primary_key('id');
__PACKAGE__->has_one('profile' => 'MyApp::Schema::Result::Profile', 'u
+ser_id');
__PACKAGE__->has_many( user_roles => 'MyApp::Schema::Result::UserRole'
+, 'user_id' );
__PACKAGE__->many_to_many( roles => 'user_roles', 'role' );
package MyApp::Schema::Result::Profile;
use Moose;
use MooseX::NonMoose;
use namespace::autoclean;
extends 'MyApp::Schema::Result';
__PACKAGE__->table('profile');
__PACKAGE__->add_columns(
user_id => {
data_type => 'integer',
size => 16,
is_foreign_key => 1,
is_nullable => 0,
},
name => {
data_type => 'varchar',
size => 256,
is_nullable => 0,
is_auto_increment => 0,
},
email => {
data_type => 'varchar',
size => 256,
is_nullable => 0,
is_auto_increment => 0,
},
);
__PACKAGE__->set_primary_key('user_id');
__PACKAGE__->has_one('profile' => 'MyApp::Schema::Result::User', 'id')
+;
1;
__END__
Now, I am able to access the fields of the profile table via $user->profile->name or $user->profile->email, like in my database deploy script (can be found in scripts/myapp_loaddb.pl relevant pieces below)
#!/usr/bin/env perl
use lib 'lib';
#use MyApp;
use 5.014;
use strict;
use warnings;
use MyApp::Schema;
#my $schema = My->schema;
my $schema = MyApp::Schema->connect( 'dbi:SQLite:db/myapp.db', );
$schema->deploy({ add_drop_table => 1});
$schema->resultset('User')->populate([
[ qw( id username password ) ],
[1, 'test1', 'foo' ],
[2, 'test2', 'bar' ],
[3, 'test3', 'baz' ],
[4, 'test4', 'stuff' ],
[5, 'test5', 'stuff2' ],
]);
$schema->resultset('Profile')->populate([
[ qw ( user_id name email ) ],
[1, 'Test User 1', 'test1@example.org', ],
[2, 'Test User 2', 'test2@example.org', ],
[3, 'Test User 3', 'test3@example.org', ],
[4, 'Test User 4', 'test4@example.org', ],
[5, 'Test User 5', 'test5@example.org', ],
]);
foreach my $user ($schema->resultset('User')->all) {
$user->add_role('User');
}
foreach my $user ($schema->resultset('User')->all) {
say "Username: " . $user->username;
say "Name: ". $user->profile->name;
}
However, when I try to get HTML::FormHandler to process the related updates I get the following error:
DBIx::Class::Storage::BlockRunner::__ANON__(): No such column, relatio
+nship, many-to-many helper accessor or generic accessor 'email' at /r
+oot/perl5/lib/perl5/Context/Preserve.pm line 22
DBIx::Class::Storage::BlockRunner::__ANON__(): No such column, relatio
+nship, many-to-many helper accessor or generic accessor 'name' at /ro
+ot/perl5/lib/perl5/Context/Preserve.pm line 22
DBIx::Class::Storage::BlockRunner::__ANON__(): No such column, relatio
+nship, many-to-many helper accessor or generic accessor 'profile.emai
+l' at /root/perl5/lib/perl5/Context/Preserve.pm line 22
DBIx::Class::Storage::BlockRunner::__ANON__(): No such column, relatio
+nship, many-to-many helper accessor or generic accessor 'profile.name
+' at /root/perl5/lib/perl5/Context/Preserve.pm line 22
My form looks like this:
package MyApp::Form::User;
use HTML::FormHandler::Moose;
extends 'MyApp::Form::Base';
with 'HTML::FormHandler::Widget::Theme::Bootstrap';
=head1 NAME
Form object for the User Controller
=head1 SYNOPSIS
Form used for user/add and user/edit actions
=head1 DESCRIPTION
Catalyst Form.
=cut
has '+item_class' => ( default => 'User' );
has_field 'username' => (
type => 'Text',
required => 1,
required_message => 'A Username is required',
label => 'Username',
);
has_field 'name' => (
accessor => 'profile.name',
type => 'Text',
required => 1,
required_massage => 'A Name is required',
label => 'Name',
);
has_field 'email' => (
accessor => 'profile.email',
type => 'Text',
required => 1,
required_message => 'An email address is required',
label => 'Email',
);
has_field 'password' => (
type => 'Password',
required => 1,
required_message => 'A Password is required',
label => 'Password',
);
has_field 'roles' => (
type => 'Multiple',
label => 'Roles',
widget => 'CheckboxGroup',
);
has_field submit => ( type => 'Submit', value => 'Update', element_cla
+ss => ['btn'] );
__PACKAGE__->meta->make_immutable;
no HTML::FormHandler::Moose;
1;
I've tried with and without the accessor, and with accessor values "user.profile.name" and "profile.name". According to the documentation ( http://search.cpan.org/~gshank/HTML-FormHandler-Model-DBIC-0.23/lib/HTML/FormHandler/TraitFor/Model/DBIC.pm#DBIC_Relationships ) HTML::FormHandler::TraitFor::Model::DBIC handles many_to_many and belongs_to relationships automatically, but I tried creating the has_one relationship as a belongs_to relationship with no luck.
What am I doing wrong with HTML::FormHandler?
I'm also open to any suggestions regarding database/schema layout or design.
Thanks in advance