<% use Mojo::JSON qw/decode_json/; use Data::Dumper; my $device = &subs::device_setter(); my $groupies = [ [ 'community', 'club', 'team', 'project' ], [ 'government', 'institution', 'corporation' ]]; %> <% foreach my $inf (@{$groupies}) { %> <% my @groupies = @{$inf}; %> <% foreach my $group ( @groupies ) { %> <% } %> <% foreach my $group ( @groupies ) { %> <% } %>

<%= &subs::format_name($group) %>

<% my $groups = &subs::db_query('select * from settings where device=? and setting=? and value=? order by app', $device, 'pos', $group)->hashes; %> <% my $sc = &subs::setting_grabber({ app => $a, setting => 'sc_' . $group }); %> <% my $sc_group = eval { return decode_json $sc } || []; %> selected<% } %>>All <% foreach my $g ( @{$groups} ) { %> <% my $g_uuid = &subs::setting_grabber({ app => $g->{'app'}, setting => 'uuid' }); %> selected<% } %>><%= &subs::format_name($g->{'app'}) %> <% } %>

<% } %>