32 lines
790 B
Perl
32 lines
790 B
Perl
package Pear::LocalLoop::Controller::Register;
|
|
use Mojo::Base 'Mojolicious::Controller';
|
|
|
|
sub index {
|
|
my $c = shift;
|
|
|
|
my $agerange_rs = $c->schema->resultset('AgeRange');
|
|
$agerange_rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
|
|
$c->stash( ageranges => [ $agerange_rs->all ] );
|
|
}
|
|
|
|
sub register {
|
|
my $c = shift;
|
|
my $validation = $c->validation;
|
|
$validation->required('token')->in_resultset(
|
|
'accounttokenname',
|
|
$c->schema->resultset('AccountToken')->search_rs({used => 0}),
|
|
);
|
|
$validation->required('name', 'trim');
|
|
$validation->required('email')->email;
|
|
$validation->required('agerange')->in_resultset(
|
|
'agerangeid',
|
|
$c->schema->resultset('AgeRange'),
|
|
);
|
|
|
|
use Devel::Dwarn;
|
|
Dwarn $validation;
|
|
$c->redirect_to('/register');
|
|
}
|
|
|
|
1;
|