235 |
my $mfn_link = "thes/$mfn.html"; |
my $mfn_link = "thes/$mfn.html"; |
236 |
if (-e "out/$mfn_link") { |
if (-e "out/$mfn_link") { |
237 |
$html .= " " x $level . |
$html .= " " x $level . |
238 |
qq{<li>${link_start}${term}${link_end}}. |
qq{<li>${link_start}<span id="o$mfn">${term}</span>${link_end}}. |
239 |
qq{ <a href="$mfn_link">»</a></li>\n}; |
qq{ <a href="$mfn_link">»</a></li>\n}; |
240 |
} else { |
} else { |
241 |
$log->warn("file 'out/$mfn_link' doesn't exist, skipping"); |
$log->warn("file 'out/$mfn_link' doesn't exist, skipping"); |