sub {

my $father_id = $_[0] || 0;
my $tbl = $DB->table('Category');
$tbl->select_options('ORDER BY Name');

my (@norm_loop, @priority_loop);

my $sth = $tbl->select( { FatherID => $father_id, CatIsPriority => 1 } ) || die $GT::SQL::error;

# get priority loop of cats
while (my $hit = $sth->fetchrow_hashref) {
$hit->{URL} = $CFG->{build_root_url} . "/" . $DB->table('Category')->as_url( $hit->{Full_Name} ) . "/" . $CFG->{build_index};
push @priority_loop, $hit;
}

# now get normal categories
my $sth = $tbl->select( { FatherID => $father_id, CatIsPriority => 0 } ) || die $GT::SQL::error;

while (my $hit = $sth->fetchrow_hashref) {
$hit->{URL} = $CFG->{build_root_url} . "/" . $DB->table('Category')->as_url( $hit->{Full_Name} ) . "/" . $CFG->{build_index};
push @norm_loop, $hit;
}

return { priority_loop => \@priority_loop, norm_loop => \@norm_loop };
}

<%sort_out_cat_loops($category_id)%>

<%if priority_loop.length%>
<%loop priority_loop%>
<%include subcategory.html%>
<%endloop%>
<%endif%>


<%if norm_loop.length%>
<%loop norm_loop%>
<%include subcategory.html%>
<%endloop%>
<%endif%>