--- trunk2/all2all.pl 2004/09/11 20:21:28 423 +++ trunk2/all2all.pl 2004/09/12 20:36:33 432 @@ -18,6 +18,7 @@ my $webpac = new WebPAC( code_page => 'ISO-8859-2', limit_mfn => 500, + start_mfn => 6000, # debug => 1, # low_mem => 1, ) || die; @@ -56,6 +57,8 @@ $webpac->open_import_xml(type => 'isis_hidra_ths'); +if(1) { # XXX + while (my $rec = $webpac->fetch_rec) { my @ds = $webpac->data_structure($rec); @@ -146,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{ @@ -161,63 +170,232 @@ Browse + - -