sub {
#---------------------------------------------------
# Display the number of sub categories

my $tag = shift;

my $title = $tag->{title};




my ($db, $sth, $names);
my $count;
my $title = "Magic Directories/Dealers";
$db = $DB->table("Category");
$db->select_options("ORDER BY Name");
$sth = $db->select( ["Full_Name"] );
$names = $sth->fetchrow_array;

# run a loop and $count++;

# somehow cross reference the $title with the category names and count them...

return $name;
}