this code online
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="80%" border="0" cellspacing="0" cellpadding="0"><tr><td 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|</center></td><td class="catlist" valign="top"></center>\n|;
}
$i++;
# Then we print out the name linked, new if it's new, and popular if its popular.
$output .= qq|<font face="Arial, Helvetica, sans-serif" size="-1"><a class="link" href="$url"><b>$category_name</b></a></strong> <small class="numlinks">($numlinks)</small> |;
$output .= qq|<img src="
http://www.nauticalink.it/new.gif">| if (&days_old($mod) < $db_new_cutoff);
$output .= qq|<br><span class="descript"><font face="Arial" size="-1" color="Black">$description</font></span>| if (!($description =~ /^[\s\n]*$/));
$v = 0;
$output .= qq~<BR>~;
foreach $subcatsub (sort @{$subcategories{$subcat}}) {
$suburl = "$build_root_url/" . &urlencode($subcatsub) . "/";
if ($subcatsub =~ m,.*/([^/]+)$,) {$subcategory_name = &build_clean($1);}
else {$subcategory_name = &build_clean($subcatsub);}
$output .= qq~<A HREF="$suburl">$subcategory_name</A>~ if ($v <= 5);
$output .= qq~<font color="#000000">...</font>~ if ($v eq "5");
$output .= qq~<font color="#000000">, </font>~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);
$v++;
}
$output .= qq~<BR>~;
}
$output .= qq|<BR>\n|;
}
# Don't forget to end the unordered list.
$output .= "</td></tr></table>\n";
return $output;
}
sub site_html_topx {
# -------------------------------------------------------- #
This routine will build a topx insert. return &load_template ('topx.html', { topx_sort => &topx_sort, %rec, %globals } ); }
1;
- - - - - - - - - -- - - - - -
DirectoryNautica-Italia
http://www.nauticalink.it