--- trunk2/lib/WebPAC/Tree.pm 2004/09/26 15:11:36 471 +++ trunk2/lib/WebPAC/Tree.pm 2004/09/26 16:44:23 472 @@ -237,7 +237,7 @@ $log->debug("$code -> $v900 : $term [$mfn]"); - my ($link_start,$link_end) = ('',''); + my ($link_start,$link_end) = ('',''); my $have_children = $tree->[$level]->{'have_children'}->($code,$v900); @@ -253,7 +253,7 @@ my $mfn_link = "thes/$mfn.html"; if (-e "out/$mfn_link") { $html .= " " x $level . - qq{
  • ${link_start}${term}${link_end}}. + qq{
  • ${link_start}${term}${link_end}}. qq{ »
  • \n}; } else { $log->warn("file 'out/$mfn_link' doesn't exist, skipping"); @@ -265,7 +265,7 @@ my $style = $tree->[$level]->{'style'}; $html .= " " x $level . - qq{\n