<&|/I18N &>Register.Title

<&|/I18N &>Register.Text

<& /forms/check_errors.comp, missing => $missing, invalid => $invalid, prelexkey => "Register" &>
<&|/I18N &>Register.NecessaryFields <& /forms/textinput.comp, missing => $missing, invalid => $invalid, name => "username", lexkey => 'Register.Username' &> <& /forms/textinput.comp, missing => $missing, invalid => $invalid, name => "password", lexkey => 'Register.Password', type => "password" &> <& /forms/textinput.comp, missing => $missing, invalid => $invalid, name => "firstname", lexkey => 'Register.Firstname' &> <& /forms/textinput.comp, missing => $missing, invalid => $invalid, name => "lastname", lexkey => 'Register.Lastname' &> <& /forms/textinput.comp, missing => $missing, invalid => $invalid, name => "email", lexkey => 'Register.Email' &> <& /forms/textinput.comp, missing => $missing, invalid => $invalid, name => "city", lexkey => 'Register.City' &> <& /forms/select.comp, missing => $missing, invalid => $invalid, name => "country_id", lexkey => 'Register.Country', values => \%countries, select => $sel_lang &> <& /forms/textinput.comp, missing => $missing, invalid => $invalid, name => "life_motto", lexkey => 'Register.LifeMotto' &>
<&|/I18N &>Register.UnnecessaryFields <& /forms/textinput.comp, missing => $missing, invalid => $invalid, name => "life_motto2", lexkey => 'Register.LifeMotto2' &> <& /forms/textarea.comp, missing => $missing, invalid => $invalid, name => "likes", lexkey => 'Register.Likes' &> <& /forms/textarea.comp, missing => $missing, invalid => $invalid, name => "dislikes", lexkey => 'Register.Dislikes' &> <& /forms/textinput.comp, missing => $missing, invalid => $invalid, name => "gps", lexkey => 'Register.Gps' &> <& /forms/select.comp, missing => $missing, invalid => $invalid, name => "enneagram1_type_id", lexkey => 'Register.Enneagram1', values => \%enneagrams1, sort_order => sub { $a cmp $b }, select => "" &> <& /forms/select.comp, missing => $missing, invalid => $invalid, name => "enneagram2_type_id", lexkey => 'Register.Enneagram2', values => \%enneagrams2, sort_order => sub { $a cmp $b }, select => "" &>
<& /forms/button.comp, name => "register", lexkey => "Register.Submit", type => "submit" &>
<%init> my $sa = $App->saved_args(); my $missing = $sa->{missing}; my $invalid = $sa->{invalid}; my $values = $sa->{values}; my @errors = $App->errors(); my $nessfields = { firstname => "input", lastname => "input", }; my $lang = $r->notes('lang') || "en"; my %countries = map { $_->a2 => $_->$lang } $App->schema->resultset('Countries')->all({ order_by => $lang }); my $sel_lang = uc($lang); my %enneagrams2 = map { $_->id => $App->{i18n}->loc($lang, "Enneagram." . $_->description) } $App->schema->resultset('EnneagramTypes')->all(); $enneagrams2{''} = "Enneagram.Unknown"; my %enneagrams1 = %enneagrams2; delete $enneagrams1{0}; <%once> use HTML::FillInForm; <%filter> $_ = HTML::FillInForm->new->fill(scalarref => \$_, fdat => $App->saved_args->{args});