% use Mojo::JSON qw/encode_json decode_json/; %>
<%= $main_title %>
| <% foreach my $phone ( sort { $a->{'app'} cmp $b->{'app'} } @{$phone_numbers} ) { %> <% $phone->{'value'} =~ s/\S\d(?=\d{10})//; %> | |||||
|---|---|---|---|---|---|
| <%= &subs::format_name($phone->{'app'}) %> | <%= &subs::format_name($phone->{'value'}) %> |
| <% foreach my $email ( sort { $a->{'app'} cmp $b->{'app'} } @{$email_addresses} ) { %> <% $email->{'value'} =~ s/\S\d(?=\d{10})//; %> | |||||
|---|---|---|---|---|---|
| <%= &subs::format_name($email->{'app'}) %> | <%= &subs::format_name($email->{'value'}) %> |
| <% foreach my $sc ( sort keys %{$sc} ) { %> | <%= &subs::format_name($sc) %> | <% } %> <% foreach my $ls ( @{$list} ) { %> <% my $uuid = $ls->{'uuid'}; %>||||||
|---|---|---|---|---|---|---|---|
![]() |
<% if ($ls->{'config'}->{'room'}) { %>
<%= &subs::format_name($ls->{'config'}->{'room'}) %> | <% } else { %> <% foreach my $sc ( sort { $a->{'order'} cmp $b->{'order'} } values %{$sc} ) { %><%= &subs::format_name($ls->{$sc->{'sing'}}) %> | <% } %> <% } %>|||||