Everthing should be O.K. now, but there are still no nonenglish charakters?!?
here's the part from the site_html_templates.pl
Do you have an idea?
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, $subcatsub);
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 = 1;
$depth_old = 0;
$numcat = keys %category;
$cat_per_col = $numcat / $site_map_columns;
$next_split = $cat_per_col;
$current_cat = 0;
($nonenglish) = @{$category{$subcat}}[8];
$subcatsub = $nonenglish if ($nonenglish);
# Print Header.
$output = qq|\n|;
# Go through each category and build the appropriate page.
CATEGORY: foreach $cat (sort keys %category) {
next CATEGORY if ($cat =~ /^\s*$/); # How'd that get in here? =)
$category_clean = &build_clean ($cat);
$numlinks = $stats{$cat}[0];
$current_cat++;
@categorylist = split (/ : /, $category_clean);
$depth_new = $#categorylist;
$links = "";
$zcat = @categorylist[$#categorylist];
if ($depth_new < $depth_old) {
for ($i = 0; $i <= ($depth_old - ($depth_new + 1)); $i++) {
$links .= "\n";
}
if ($depth_new == 0 && $current_cat > $next_split) {
$next_split += $cat_per_col;
$links .= qq|\n|;
}
}
$links .= qq~\n<p class="datei"><a href="$relative_url/$cat/">$zcat</a> ($numlinks)</p>~;
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<br>";
}
$output .= $links;
$depth_old = $depth_new;
}
$output .= '<br>';
return $output;
}
sub kategorie_title_mb {
# --------------------------------------------------------
open (DB, "<$db_category_name") or &cgierr("Fehler. Kann die Datei bzw. Verzeichnis nicht öffnen: $db_file_name. Grund: $!");
@kategorien = <DB>;
close DB;
my ($input, $output, $title, $kategorie, @fields);
$input = $_[0];
$title = "";
KATEGORIE: foreach $kategorie (@kategorien) {
if ($kategorie =~ /^#/) { next KATEGORIE; }
chomp ($kategorie);
@fields = &split_decode ($kategorie);
if (@fields[1] eq $input) {
$title = @fields[8];
$title =~ s,\\, : ,g;
last KATEGORIE;
}
}
if ($title eq "") {
$output = &build_clean ($input);
}
else {
$output = $title;
}
return $output;
}
sub build_clean_mb {
# --------------------------------------------------------
my ($input) = $_[0];
$input =~ s,\\, : ,g;
return $input;
}
1;
Matthias
gpaed.de
