##########################################################
## Category Listings ##
##########################################################

sub site_html_print_cat {
# --------------------------------------------------------
# This routine determines how the list of categories will look.
# We now use a table to split the category name up into two columns.
# For each category you can use the following variables:
#
# $url : The URL to go to that category
# $category_name : The category name with _ and / removed.
# $category_descriptions{$subcat}: The category description (if any).
# $numlinks : The number of links inside that category (and subcategories).
# $mod : The newest link inside of that category.
#

my (@subcat) = @_;
my ($url, $numlinks, $mod, $subcat, $category_name, $description, $output, $i);
my ($half) = int (($#subcat+2) / 2);

# Print Header.
$output = qq~<div class="margin"><table width="95%" border="0" cellspacing="10" cellpadding="5"><tr><td width="50%" class="catlist" valign="top">\n~;

foreach $subcat (sort @subcat) {
($description) = @{$category{$subcat}}[2];

# First let's get the name, number of links, and last modified date...
$url = "$build_root_url/" . &urlencode($subcat) . "/";
if ($subcat =~ m,.*/([^/]+)$,) { $category_name = &build_clean($1); } else { $category_name = &build_clean($subcat); }
$numlinks = $stats{"$subcat"}[0];
$mod = $stats{"$subcat"}[1];

# We check to see if we are half way through, if so we stop this table cell
# and begin a new one (this lets us have category names in two columns).
if ($i == $half) {
$output .= qq~</td><td width="50%" class="catlist" valign="top">\n~;
}
$i++;


# Then we print out the name linked, new if it's new, and popular if its popular.
$output .= qq~<dl><dt><font face="arial" size="3"><a class="link" href="$url"><b>$category_name</b></a></font> <font face="arial" size="1">($numlinks)</font> ~;
my $days_old = &days_old($mod);
if ($days_old <= 0) { $output .= qq|<$new_1_graphic>|; }
elsif ($days_old <= 2) { $output .= qq|<$new_3_graphic>|; }
elsif ($days_old <= 6) { $output .= qq|<$new_7_graphic>|; }
else { }
$output .= qq~</dt>~;
$output .= qq~<dd><font size="2" face="arial">$description </font></dd>~ if (!($description =~ /^[\s\n]*$/));
$output .= qq~</dl>~;

}

# Don't forget to end the unordered list..
$output .= "</td></tr></table></div>\n";
return $output;
}

# Print Header.
$output = qq~<div class="margin"><table width="95%" border="0" cellspacing="10" cellpadding="5"><tr><td width="50%" class="catlist" valign="top">\n~;

$site_menu = qq~
<p><center><font size="2" face="arial"><b>|
<a href="$build_root_url">Home</a> |
<a href="$build_new_url">What's New</a> |
<a href="$build_cool_url">What's Cool</a> |
<a href="$build_email_url">Email Updates</a> |
<a href="$build_jump_url?$db_key=random">Random Link</a> |
<a href="$build_search_url">Search</a> |</b></font></center></p>
~;