hope you can help..
I was trying to get subcategories to appear as a permanent side-menu -
for some reason the menu link urls are there but the actual text for the link doesn't show up- so its invisible effectively...here's the full sub menu routine...
sub menu {
# --------------------------------------------------------
#
my (%c, @fields);
open (DB, "<$db_category_name") or &cgierr("unable to open $db_file_name. Reason: $!");
if ($db_use_flock) { flock(DB, 1); }
LINE: while (<DB>) {
(/^#/) and next LINE;
(/^\s*$/) and next LINE;
@fields = &split_decode ($_);
$c{$fields[$db_main_category]}++;
}
close DB;
foreach $field (sort keys %c) {
unless ($field =~ m,^([^/]*)$,) {
$field2 = &build_clean($1);
$category_list .= qq|<a href= "$build_root_url/$field">$field2</a>
|;
}
}
return $category_list;
}
I was trying to get subcategories to appear as a permanent side-menu -
for some reason the menu link urls are there but the actual text for the link doesn't show up- so its invisible effectively...here's the full sub menu routine...
sub menu {
# --------------------------------------------------------
#
my (%c, @fields);
open (DB, "<$db_category_name") or &cgierr("unable to open $db_file_name. Reason: $!");
if ($db_use_flock) { flock(DB, 1); }
LINE: while (<DB>) {
(/^#/) and next LINE;
(/^\s*$/) and next LINE;
@fields = &split_decode ($_);
$c{$fields[$db_main_category]}++;
}
close DB;
foreach $field (sort keys %c) {
unless ($field =~ m,^([^/]*)$,) {
$field2 = &build_clean($1);
$category_list .= qq|<a href= "$build_root_url/$field">$field2</a>
|;
}
}
return $category_list;
}