141 |
} |
} |
142 |
} |
} |
143 |
|
|
144 |
|
$log->info("lookup hash: ",Dumper($webpac->{'lookup'})); |
145 |
|
|
146 |
# |
# |
147 |
# tree dump implementation which shouldn't be here :-) |
# tree dump implementation which shouldn't be here :-) |
148 |
# |
# |
175 |
|
|
176 |
print HTML qq{ <li><a href="thes/$mfn.html">$term</a></li>\n} if (-e "out/thes/$mfn.html"); |
print HTML qq{ <li><a href="thes/$mfn.html">$term</a></li>\n} if (-e "out/thes/$mfn.html"); |
177 |
|
|
178 |
$log->logconfess("can't find 'a:${code}::'") unless ($l->{"a:${code}::"}); |
unless ($l->{"a:${code}::"}) { |
179 |
|
$log->warn("can't find 'a:${code}::'"); |
180 |
|
next; |
181 |
|
} |
182 |
|
|
183 |
print HTML qq{ <ul>\n}; |
print HTML qq{ <ul>\n}; |
184 |
|
|
191 |
$log->info("$l2_code -> $l2_v900 : $l2_term [$l2_mfn]"); |
$log->info("$l2_code -> $l2_v900 : $l2_term [$l2_mfn]"); |
192 |
|
|
193 |
print HTML qq{ <li><a href="thes/$l2_mfn.html">$l2_term</a></li>\n} if (-e "out/thes/$l2_mfn.html"); |
print HTML qq{ <li><a href="thes/$l2_mfn.html">$l2_term</a></li>\n} if (-e "out/thes/$l2_mfn.html"); |
194 |
|
|
195 |
|
unless ($l->{"a:${l2_code}:"}) { |
196 |
|
$log->warn("can't find 'a:${l2_code}:'"); |
197 |
|
next; |
198 |
|
} |
199 |
|
|
200 |
print HTML qq{ <ul>\n}; |
print HTML qq{ <ul>\n}; |
201 |
|
|