Browse

--- trunk2/all2all.pl 2004/09/11 08:36:38 422 +++ trunk2/all2all.pl 2004/09/12 20:36:33 432 @@ -17,9 +17,10 @@ my $webpac = new WebPAC( code_page => 'ISO-8859-2', -# limit_mfn => 100, + limit_mfn => 500, + start_mfn => 6000, # debug => 1, - low_mem => 1, +# low_mem => 1, ) || die; my $log = $webpac->_get_logger() || die "can't get logger"; @@ -56,7 +57,7 @@ $webpac->open_import_xml(type => 'isis_hidra_ths'); -$log->debug("data: ",Dumper($webpac->{'data'})); +if(1) { # XXX while (my $rec = $webpac->fetch_rec) { @@ -148,13 +149,19 @@ } } -$log->info("lookup hash: ",Dumper($webpac->{'lookup'})); +} # XXX if(0) + +$log->debug("lookup hash: ",Dumper($webpac->{'lookup'})); # # tree dump implementation which shouldn't be here :-) # + my $file = 'out/browse.html'; +my $js_url = 'tree-ids.js'; + +$log->info("creating '$file' for tree html"); open(HTML, "> $file") || $log->logdie("can't open '$file'"); print HTML qq{ @@ -162,63 +169,233 @@ Browse + + - -

+ search | + thesarus | + browse +

+Folding: +
+« default » +
+reset +all +none +
+debug - print HTML qq{

$term

\n} if (-e "out/thes/$mfn.html"); +outline +

},qq{

${link_start}${term}${link_end}}. + qq{ »
$l2_term

$l3_term

\n}; + + if ($style) { + if ($style =~ m/display\s*:\s*none/i) { + push @hide_ids, "mfn$mfn"; + } else { + push @show_ids, "mfn$mfn"; + } + } else { + # default: show + push @show_ids, "mfn$mfn"; } - print HTML qq{