--- trunk2/all2all.pl 2004/09/12 19:15:54 430
+++ trunk2/all2all.pl 2004/09/13 12:13:04 433
@@ -18,6 +18,7 @@
my $webpac = new WebPAC(
code_page => 'ISO-8859-2',
limit_mfn => 500,
+ start_mfn => 6000,
# debug => 1,
# low_mem => 1,
) || die;
@@ -177,16 +178,24 @@
-->
+
+ search |
+ thesarus |
+ browse
+
+
@@ -347,7 +356,7 @@
my $have_children = $tree[$level]->{'have_children'}->($code,$v900,$start_code);
if ($have_children) {
- ($link_start,$link_end) = (qq{},qq{});
+ ($link_start,$link_end) = (qq{},qq{});
} else {
$log->debug("# $level doesn't have_children($code,$v900,$start_code)");
}
@@ -367,19 +376,19 @@
my $style = $tree[$level]->{'style'};
print HTML " " x $level .
- qq{\n \n \n};
if ($style) {
if ($style =~ m/display\s*:\s*none/i) {
- push @hide_ids, "mfn$mfn";
+ push @hide_ids, "id$mfn";
} else {
- push @show_ids, "mfn$mfn";
+ push @show_ids, "id$mfn";
}
} else {
# default: show
- push @show_ids, "mfn$mfn";
+ push @show_ids, "id$mfn";
}
unroll($level+1, $tree[$level]->{'child_code'}->($code,$v900,$start_code));