open(FILE, "$catdesc");
my @desc = <FILE>;
close(FILE);
chomp @desc;

%category_descriptions = {};

## Create a hash with the category names to display.
foreach $directory_name (@subdirectories) {
my($date_a, $directory_name) = split(/\t/,$directory_name);
if($directory_name ne '') { $category_descriptions{"$FORM{'direct'}/$directory_name"} = 1; }
}

## Set the description for each category 
foreach $line (@desc) {
my ($catname, $catdescription) = split(/\t/, $line);
$catdescription =~ s/^\s+//g;   # trim leading blanks...
$catdescription =~ s/\s+$//g;   # trim trailing blanks...
next if (!$catdescription); # skip line if no description
if($category_descriptions{$catname} == 1) { $category_descriptions{$catname} = "<br><$font>$catdescription</font><br>"; }
}