<% foreach my $cat ( @{$categories}) { %> {'app'} eq $selected_category) { %>selected<% } %>><%= &subs::format_name($cat->{'app'}) %> <% } %> <% my $subcategories = &subs::db_query('select * from subcategory where app=?', $selected_category)->hashes; my $selected_subcategory = &subs::setting_grabber({ app => $a, setting => 'subcategory' }); %> <%= $selected_category %> <% foreach my $sub ( @{$subcategories} ) { %> {'name'} eq $selected_subcategory) { %>selected<% } %> value="<%= $sub->{'name'} %>"><%= &subs::format_name($sub->{'name'}) %> <% } %> Discount Markup