33 lines
926 B
Perl
33 lines
926 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('name', 'trim');
|
|
$validation->required('email')->email;
|
|
$validation->required('password')->equal_to('password2');
|
|
$validation->required('postcode')->postcode;
|
|
|
|
my $token_rs = $c->schema->resultset('AccountToken')->search_rs({used => 0});
|
|
$validation->required('token')->in_resultset('accounttokenname', $token_rs);
|
|
|
|
my $age_rs = $c->schema->resultset('AgeRange');
|
|
$validation->required('agerange')->in_resultset('agerangeid', $age_rs);
|
|
|
|
use Devel::Dwarn;
|
|
Dwarn $validation;
|
|
$c->redirect_to('/register');
|
|
}
|
|
|
|
1;
|