<% use Mojo::JSON qw/decode_json/; my $categories = &subs::db_query('select * from settings where setting=? and value = ?', 'pos','category')->hashes; my $selected_categories = eval { return decode_json $appts->{$a}->{'setting'}->{'categories'} } || []; %>
Categories <% foreach my $cat ( @{$categories} ) { %> {'app'} } @{$selected_categories}) { %>selected<% } %>><%= &subs::format_name($cat->{'app'}) %> <% } %>