sub {
my $tags = shift;
my $cat_db = $DB->table('Category');
$cat_db->select_options ("ORDER BY FieldName DESC");
my $sth = $cat_db->select (['Full_Name'], { FatherID => 0 });
my $output;
while ( my $root_cat = $sth->fetchrow_array) {
my $url = $cat_db->as_url($root_cat);
$output .= qq~<a href="$CFG->{build_root_url}/$url">$root_cat</a><br>~;
}
return $output;
}

sub {
my $cat_db = $DB->table('Category');
$cat_db->select_options ("ORDER BY FieldName DESC");
my $sth = $cat_db->select (['Full_Name'], { FatherID => 0 });
my $output;
while ( my $root_cat = $sth->fetchrow_array) {
my $url = $cat_db->as_url($root_cat);
$output .= qq~<a href="$CFG->{build_root_url}/$url">$root_cat</a><br>~;
}
return \$output;
}

<%load_category_root%>

sub {
my $cat_db = $DB->table('Category');
$cat_db->select_options ("ORDER BY FieldName DESC");
my $sth = $cat_db->select ( { FatherID => 0 });
my @loop;
while ( my $hit = $sth->fetchrow_hashref) {
$hit->{URL} = $cat_db->as_url($hit->{Full_Name});
push @loop, $hit;;
}
return { root_cat_loop => \@loop };
}

<%load_category_root%>
<ul>
<%loop root_cat_loop%>
<li><a href="<%URL%>"><%Name%></a></li>
<%endloop%>
</ul>