201 |
|
|
202 |
} # XXX if(0) |
} # XXX if(0) |
203 |
|
|
204 |
$log->debug("lookup hash: ",Dump($webpac->{'lookup'})); |
#$log->debug("lookup hash: ",Dump($webpac->{'lookup'})); |
205 |
|
|
206 |
$log->info("creating tree"); |
$log->info("creating tree"); |
207 |
|
|
310 |
}); |
}); |
311 |
|
|
312 |
my $tree = new WebPAC::Tree( |
my $tree = new WebPAC::Tree( |
313 |
dir => './out', |
tree => \@tree, |
314 |
html => 'browse.html', |
); |
315 |
|
|
316 |
|
$tree->output( |
317 |
|
dir => './out', |
318 |
|
html => 'browse.html', |
319 |
template => './output_template/tree.tt', |
template => './output_template/tree.tt', |
320 |
js => 'tree-ids.js', |
js => 'tree-ids.js', |
|
tree => \@tree, |
|
321 |
); |
); |
322 |
|
|
323 |
|
$tree->output( |
324 |
|
dir => './eurovoc', |
325 |
|
html => 'hijerarhija.html', |
326 |
|
template => './output_template/hijerarhija.tt', |
327 |
|
js => 'tree-ids.js', |
328 |
|
); |
329 |
|
|
330 |
|
|
331 |
$log->info("closing index"); |
$log->info("closing index"); |
332 |
$index->close; |
$index->close; |
333 |
|
|