<%args> $id => undef

<&|/I18N &>Status.Title

<&|/I18N &>Status.Text

<&|/I18N &>Status.PersonalData
<% $user->username %>
% if (!defined $id || (defined $id && $id == $App->current_user->id) || $rcds{in_contact}->{$App->current_user->id}) {
<% $user->firstname %>
<% $user->lastname %>
<% $user->email %>
% }
<% $user->city %>
<% $user->country->$lang %>
<% $user->life_motto %>
<% $user->life_motto2 %>
<% $user->likes %>
<% $user->dislikes %>
<% $user->gps %>\ % if ($user->gps) { Google Maps % }
<&|/I18N &>Enneagram.<% $user->enneagram1_type->description %>
<&|/I18N &>Enneagram.<% $user->enneagram2_type->description %>
<&|/I18N &>Status.TTT
% if ($user->result) { <% $user->result->time_stamp %> % } else { <&|/I18N &>Status.TTT.NoResult % }
% if ($user->result) { <% $user->result->ttt %> % } else { <&|/I18N &>Status.TTT.NoResult % }
<&|/I18N &>Status.RCD
% if (%rcds && keys %{ $rcds{in_contact} } > 0) { % foreach (keys %{ $rcds{in_contact} }) { <% $rcds{in_contact}->{$_}->t_user->username %> | <% $rcds{in_contact}->{$_}->t_user->firstname %> <% $rcds{in_contact}->{$_}->t_user->lastname %>\ % if (!defined $id || $rcds{in_contact}->{$App->current_user->id}) { | <% $rcds{in_contact}->{$_}->t_user->email %>\ % }
% } % } else { <&|/I18N &>Status.RCD.in_contact.Empty % }
% if (!defined $id || (defined $id && $id == $App->current_user->id)) {
% if (%rcds && keys %{ $rcds{RCD_sent} } > 0) { % foreach (keys %{ $rcds{RCD_sent} }) { <% $rcds{RCD_sent}->{$_}->t_user->username %>
% } % } else { <&|/I18N &>Status.RCD.RCD_sent.Empty % }
% } % if (!defined $id || (defined $id && $id == $App->current_user->id)) {
% if (%rcds && keys %{ $rcds{RCD_received} } > 0) { % foreach (keys %{ $rcds{RCD_received} }) { <% $rcds{RCD_received}->{$_}->t_user->username %> | <&|/I18N &>Status.RCD.Accept | <&|/I18N &>Status.RCD.Deny
% } % } else { <&|/I18N &>Status.RCD.RCD_received.Empty % }
% }
<%init> my $user = (defined $id && $id =~ /^[0-9]+$/) ? PWx::Users->new(id => $id) : $App->current_user; unless ($user) { $user = $App->current_user; $id = undef; } my $lang = $r->notes('lang') || "en"; my %rcd_types = map { $_->id => $_->description } $App->schema->resultset('RcdTypes')->all; my %rcds; map { $rcds{$rcd_types{$_->rcd_type_id}}{$_->t_user_id} = $_ } $user->rcds->all; $user->gps =~ /^(\d+(\.\d+)?) ?([NnSs]) ?,? ?(\d+(\.\d+)?) ?([EeWw])$/; my $north = $1; my $east = $4; $north = "-" . $north if ($3 =~ /s/i); $east = "-" . $east if ($6 =~ /w/i);