sub {
my $cat = shift;
my $db_obj = $DB->table('Category');
$db_obj->select_options ('ORDER BY Full_Name DESC');
my $cond = GT::SQL::Condition->new('FatherID', '=', $cat);
my $sth = $db_obj->select ( $cond) || die $GT::SQL::error;

my @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 @cats, $hit;
}

return { cat_loop => \@cats }

}

<%All_Subs_In_Category($ID)%>
<%if cat_loop.length%>
<%loop cat_loop%>
<%include subcategory.html%> <br />
<%endloop%>
<%endif%>