9 |
use strict; |
use strict; |
10 |
use Data::Dumper; |
use Data::Dumper; |
11 |
use Carp; |
use Carp; |
12 |
|
use Getopt::Long; |
13 |
|
|
14 |
use lib './lib'; |
use lib './lib'; |
15 |
use WebPAC; |
use WebPAC; |
16 |
use WebPAC::jsFind; |
use WebPAC::jsFind; |
17 |
use WebPAC::Index; |
use WebPAC::Index; |
18 |
|
|
19 |
|
# options which can be changed via command line |
20 |
|
# |
21 |
|
my $code_page = 'ISO-8859-2'; |
22 |
|
my ($limit_mfn, $start_mfn, $debug, $low_mem); |
23 |
|
my $index_path = './out/index'; |
24 |
|
|
25 |
|
my $result = GetOptions( |
26 |
|
"code_page=s" => \$code_page, |
27 |
|
"limit_mfn=i" => \$limit_mfn, |
28 |
|
"start_mfn=i" => \$start_mfn, |
29 |
|
"debug!" => \$debug, |
30 |
|
"low_mem!" => \$low_mem, |
31 |
|
); |
32 |
|
|
33 |
|
# create WebPAC object |
34 |
|
# |
35 |
my $webpac = new WebPAC( |
my $webpac = new WebPAC( |
36 |
code_page => 'ISO-8859-2', |
code_page => $code_page, |
37 |
limit_mfn => 500, |
limit_mfn => $limit_mfn, |
38 |
# debug => 1, |
start_mfn => $start_mfn, |
39 |
# low_mem => 1, |
debug => $debug, |
40 |
|
low_mem => $low_mem, |
41 |
) || die; |
) || die; |
42 |
|
|
43 |
my $log = $webpac->_get_logger() || die "can't get logger"; |
my $log = $webpac->_get_logger() || die "can't get logger"; |
45 |
$log->debug("creating WebPAC::jsFind object"); |
$log->debug("creating WebPAC::jsFind object"); |
46 |
|
|
47 |
my $index = new WebPAC::jsFind( |
my $index = new WebPAC::jsFind( |
48 |
index_path => './out/index', |
index_path => $index_path, |
49 |
keys => 10, |
keys => 10, |
50 |
) || die; |
) || die; |
51 |
|
|
195 |
--> |
--> |
196 |
<body> |
<body> |
197 |
|
|
198 |
|
<span style="background: #e0e0e0;"> |
199 |
|
<a href="search.html">search</a> | |
200 |
|
<a href="thesaurus.html">thesarus</a> | |
201 |
|
<a href="browse.html"><b>browse</b></a> |
202 |
|
</span> |
203 |
|
|
204 |
<div style="float: right; width: 10em; text-align: center; margin: 0.5m; background: #e0e0e0; border: 1px dashed #c0c0c0; z-index: 1;"> |
<div style="float: right; width: 10em; text-align: center; margin: 0.5m; background: #e0e0e0; border: 1px dashed #c0c0c0; z-index: 1;"> |
205 |
Folding: |
Folding: |
206 |
<br/> |
<br/> |
207 |
<a href="#" onClick="back_display();">«</a> <a href="#" onClick="apply_changed_display();">default</a> <a href="#" onClick="forward_display();">»</a> |
<a href="#" onClick="back_display();">«</a> <a href="#" onClick="default_display();">default</a> <a href="#" onClick="forward_display();">»</a> |
208 |
<br/> |
<br/> |
209 |
<a href="#" onClick="show_hide_display(show,hide);">reset</a> |
<a href="#" onClick="show_hide_display(show,hide);">reset</a> |
210 |
<a href="#" onClick="show_display(show); show_display(hide);">all</a> |
<a href="#" onClick="show_display(show); show_display(hide);">all</a> |
211 |
<a href="#" onClick="hide_display(hide); hide_display(show);">none</a> |
<a href="#" onClick="hide_display(hide); hide_display(show);">none</a> |
212 |
<br/> |
<br/> |
213 |
<a href="#" onClick="alert('show: '+show.length+', hide: '+hide.length+', changed:'+changed_display_ids.length+', positin: '+changed_display_pos);">debug</a> |
<a href="#" onClick="alert('show: '+show.length+', hide: '+hide.length+', changed:'+changed_display_ids.length+', positin: '+changed_display_pos);">debug</a> |
214 |
|
|
215 |
|
<a href="#" onClick="outline_display('id6030');">outline</a> |
216 |
</div> |
</div> |
217 |
|
|
218 |
<ul> |
<ul> |
373 |
|
|
374 |
my $have_children = $tree[$level]->{'have_children'}->($code,$v900,$start_code); |
my $have_children = $tree[$level]->{'have_children'}->($code,$v900,$start_code); |
375 |
if ($have_children) { |
if ($have_children) { |
376 |
($link_start,$link_end) = (qq{<a href="#mfn$mfn" onClick="return toggle_display('mfn$mfn');">},qq{</a>}); |
($link_start,$link_end) = (qq{<a href="#mfn$mfn" onClick="return toggle_display('id$mfn');">},qq{</a>}); |
377 |
} else { |
} else { |
378 |
$log->debug("# $level doesn't have_children($code,$v900,$start_code)"); |
$log->debug("# $level doesn't have_children($code,$v900,$start_code)"); |
379 |
} |
} |
393 |
my $style = $tree[$level]->{'style'}; |
my $style = $tree[$level]->{'style'}; |
394 |
|
|
395 |
print HTML " " x $level . |
print HTML " " x $level . |
396 |
qq{<a name="mfn$mfn"></a>\n <ul id="mfn$mfn"}. |
qq{<a name="mfn$mfn"></a>\n <ul id="id$mfn"}. |
397 |
($style ? ' style="'.$style.'"' : ''). |
($style ? ' style="'.$style.'"' : ''). |
398 |
qq{>\n}; |
qq{>\n}; |
399 |
|
|
400 |
if ($style) { |
if ($style) { |
401 |
if ($style =~ m/display\s*:\s*none/i) { |
if ($style =~ m/display\s*:\s*none/i) { |
402 |
push @hide_ids, "mfn$mfn"; |
push @hide_ids, "id$mfn"; |
403 |
} else { |
} else { |
404 |
push @show_ids, "mfn$mfn"; |
push @show_ids, "id$mfn"; |
405 |
} |
} |
406 |
} else { |
} else { |
407 |
# default: show |
# default: show |
408 |
push @show_ids, "mfn$mfn"; |
push @show_ids, "id$mfn"; |
409 |
} |
} |
410 |
|
|
411 |
unroll($level+1, $tree[$level]->{'child_code'}->($code,$v900,$start_code)); |
unroll($level+1, $tree[$level]->{'child_code'}->($code,$v900,$start_code)); |