235 |
|
|
236 |
$log->debug("$code -> $v900 : $term [$mfn]"); |
$log->debug("$code -> $v900 : $term [$mfn]"); |
237 |
|
|
238 |
my ($link_start,$link_end) = ('',''); |
my ($link_start,$link_end) = ('<a name="mfn'.$mfn.'"></a>',''); |
239 |
|
|
240 |
my $have_children = $tree->[$level]->{'have_children'}->($code,$v900); |
my $have_children = $tree->[$level]->{'have_children'}->($code,$v900); |
241 |
|
|
252 |
if (-e "out/$mfn_link") { |
if (-e "out/$mfn_link") { |
253 |
$html .= " " x $level . |
$html .= " " x $level . |
254 |
qq{<li>${link_start}<span id="o$mfn">${term}</span>${link_end}}. |
qq{<li>${link_start}<span id="o$mfn">${term}</span>${link_end}}. |
255 |
qq{ <a href="$mfn_link">»</a></li>\n}; |
qq{ <a href="$mfn_link" onClick="javascript:return popup(this);">»</a></li>\n}; |
256 |
} else { |
} else { |
257 |
$log->warn("file 'out/$mfn_link' doesn't exist, skipping"); |
$log->warn("file 'out/$mfn_link' doesn't exist, skipping"); |
258 |
} |
} |