sub {
my $tags = shift;
my $seen;
my $id = $tags->{'ID'};
my $db = $DB->table ('Category','CatLinks');
my $sth = $db->select ( { LinkID => $id }, ['ID','Name','Full_Name'] );
my $cat;
while (my ($id,$name,$full_name) = $sth->fetchrow_array) {

if ($id =~ /^234|3|112$/) { next; }
if ($seen->{$name}) { next; }

$full_name =~ s/ /_/g;

my $full_name2 = $full_name;
$full_name2 =~ s|/| / |g;
$cat .= qq~<a href="$CFG->{build_root_url}/$full_name/index.html">$full_name2</a><br>~;
$seen->{$name} = 1;
}

return $cat;
}