sub site_html_print_map {
# --------------------------------------------------------
# This routine builds a tree from all links/categories
my ($cat, $numlinks);
my ($linkstree, $output, @categorylist, $depth_old, $depth_new);
my ($relative_url, $numcat, $cat_per_col, $next_split, $current_cat, $nonenglish, $zcat, $category_name, $category_clean2);
local ($links);

$build_root_url =~ m~http://[^/]*~;
$relative_url = $';
# set linkstree to 0 if you want only a tree of all categories
# set linkstree to 1 if you want a tree off all categories and links
$linkstree = 0;
$depth_old = 0;
$numcat = keys %category;
$cat_per_col = $numcat / $site_map_columns;
$next_split = $cat_per_col;
$current_cat = 0;


# Print Header.
$output = qq|<div id="mid-col-1"><ul>\n|;
# Go through each category and build the appropriate page.
CATEGORY: foreach $cat (sort keys %category) {
next CATEGORY if ($cat =~ /^\s*$/);

$category_clean = &build_clean ($cat);
$zcat = &kategorie_title_mb($cat);



$numlinks = $stats{$cat}[0];
$current_cat++;

@categorylist = split (/ : /, $category_clean);

$depth_new = $#categorylist;
$links = "";
## remove this line >> $zcat = @categorylist[$#categorylist];



if ($depth_new < $depth_old) {
for ($i = 0; $i <= ($depth_old - ($depth_new + 1)); $i++) {
$links .= "\n</ul>";
}
if ($depth_new == 0 && $current_cat > $next_split) {
$next_split += $cat_per_col;
$links .= qq|</ul></div><div id="mid-col-2"><ul>\n|;
}
}
$links .= qq~\n<li><a href="$relative_url/$cat/">$zcat</a><span class="smalltype">&nbsp;($numlinks)</span>~;
if ($linkstree == 1) {
$numlinks = ($#{$links{$cat}} + 1) / ($#db_cols + 1);
for ($i = 0; $i < $numlinks; $i++) {
%tmp = &array_to_hash ($i, @{$links{$cat}});
$links .= &site_html_link (%tmp);
}
$links .= "\n";
}
if ($#{$subcategories{$cat}} >= 0) {
$links .= "\n<ul>";
}
$output .= $links;
$depth_old = $depth_new;
}
$output .= qq|</ul></ul></div>\n|;

return $output;
}

$zcat = @categorylist[$#categorylist];

$zcat = $categorylist[$#categorylist];