%
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; }
%>
<% } %>