sub {
my $tags = shift;
my $cat_db = $DB->table('Category');
$cat_db->select_options("ORDER BY Full_Name");
my $sth = $cat_db->select (['Full_Name','Description'], { FatherID => 0 });
my $output;
while (my ($root_cat,$desc)=$sth->fetchrow_array) {
my $url = $cat_db->as_url($root_cat);
$output .= qq~<div class="rbsDept"><a href="$CFG->{build_root_url}/$url" style="text-decoration: none">$root_cat</a></div><div class="rbsSub"> </div>~;
}
return $output;
}