<&|/I18N &>Register.Text&>
<%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}; %init> <%once> use HTML::FillInForm; %once> <%filter> $_ = HTML::FillInForm->new->fill(scalarref => \$_, fdat => $App->saved_args->{args}); %filter>