Anchor
<% use Mojo::JSON qw/decode_json/; %> <% foreach my $d ( @gb::device_types ) { %>

<%= $d %>

<% foreach my $m ( sort keys %{$me->{$d}} ) { %> <% unless ( $m eq 'pos' || $m eq 'gallery_appts' || $m eq 'currency' || $m eq 'unit' || $m eq 'budget_alarm' || $m eq 'advertise_watching' || $m eq 'mugshot' || $m eq 'home_plate' || $m eq 'information' ) { %> <%= &subs::format_name($m) %>
<% } elsif ( $m eq 'unit' ) { %> <%= &subs::format_name($m) %> <% } elsif ( $m eq 'currency' ) { %> <%= &subs::format_name($m) %> <% } elsif ( $m eq 'gallery_appts') { %> <%= &subs::format_name($m) %> {$d}->{$m} eq 'on' ) { %>checked <% } %> value="<%= $me->{$d}->{$m} %>">
<% } elsif ( $m eq 'budget_alarm') { %> <%= &subs::format_name($m) %> {$d}->{$m} eq 'on' ) { %>checked <% } %> value="<%= $me->{$d}->{$m} %>">
<% } elsif ( $m eq 'advertise_watching') { %> <%= &subs::format_name($m) %> {$d}->{$m} eq 'on' ) { %>checked <% } %> value="<%= $me->{$d}->{$m} %>">
<% } elsif ( $m eq 'mugshot') { %> <%= &subs::format_name($m) %>

<% } elsif ( $m eq 'home_plate' ) { %> <%= &subs::format_name($m) %>
{$d}->{$m}) { %> style="background-color:lightgreen;" <% } %> src="/images/make believe/gps.png" device="<%= $d %>" setting="<%= $m %>" class="medium_thumb home_plate_record"> <% if ($me->{$d}->{$m}) { %>
<% my $location = eval { return decode_json $me->{$d}->{$m} } || {}; %> lat:
long: <% } %> <% } elsif ( $m eq 'information' ) { %> <%= &subs::format_name($m) %>
<% } else { %> Part of Speech <% } %>
<% } %> <% } %>