%args> $id => undef %args>
<&|/I18N &>Status.Text&>
<%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); %init>