<% my $q = &subs::db_query('select * from settings where setting=? and value=?','pos','category'); my $categories = $q->hashes; my $settings = &subs::settings_grabber({ app => $a }); %>

<%= include 'pos/category_select', a => $a %> <% my $sc = $settings->{'category'}; for (my $n = 0; $n <= 1000; $n++) { my $count = $n; $count = '' if $n == 0; my $subcategories = &subs::db_query('select * from subcategory where app=?', $sc)->hashes; my $selected_subcategory = &subs::setting_grabber({ app => $a, setting => 'subcategory' . $count }); if (scalar @{$subcategories} > 0) { %> <% $sc = $selected_subcategory; } else { last; } %> <% } %>