158 |
|
|
159 |
my $html = $self->unroll(0,()); |
my $html = $self->unroll(0,()); |
160 |
|
|
161 |
$log->logdie("no html generated by unroll...") unless ($html); |
if (! $html) { |
162 |
|
$log->warn("no html generated by unroll..."); |
163 |
|
return; |
164 |
|
} |
165 |
|
|
166 |
my $html_file = $self->{'dir'}.'/'.$self->{'html'}; |
my $html_file = $self->{'dir'}.'/'.$self->{'html'}; |
167 |
|
|
255 |
|
|
256 |
my $mfn_link = "thes/$mfn.html"; |
my $mfn_link = "thes/$mfn.html"; |
257 |
if (-e "out/$mfn_link") { |
if (-e "out/$mfn_link") { |
258 |
|
$term =~ s# *\* *# <img src="img/crovoc.png" border="0">#; |
259 |
$html .= " " x $level . |
$html .= " " x $level . |
260 |
qq{<li><a name="mfn${mfn}"></a>${link_start}<span id="o$mfn">${term}</span>${link_end}}. |
qq{<li>${link_start}<span id="o$mfn">${term}</span>${link_end}}. |
261 |
qq{ <a href="$mfn_link" onClick="javascript:return popup(this);">»</a></li>\n}; |
qq{ <a href="$mfn_link" onClick="javascript:return popup(this);"><img src="img/listic.png" border="0"></a></li>\n}; |
262 |
} else { |
} else { |
263 |
$log->warn("file 'out/$mfn_link' doesn't exist, skipping"); |
$log->warn("file 'out/$mfn_link' doesn't exist, skipping"); |
264 |
} |
} |