--- trunk2/all2all.pl	2004/10/31 18:43:33	566
+++ trunk2/all2all.pl	2005/07/13 23:38:04	708
@@ -15,7 +15,8 @@
 
 use lib './lib';
 use WebPAC;
-use WebPAC::jsFind;
+#use WebPAC::jsFind;
+use WebPAC::HyperEstraier;
 use WebPAC::Index;
 use WebPAC::Tree;
 
@@ -23,7 +24,8 @@
 #
 my $code_page = 'ISO-8859-2';
 my ($limit_mfn, $start_mfn, $debug, $low_mem);
-my $index_path = './out/index';
+#my $index_path = './out/index';
+my $index_path = './out/casket';
 
 my $result = GetOptions(
 	"code_page=s"	=> \$code_page,
@@ -104,12 +106,15 @@
 
 my $log = $webpac->_get_logger() || die "can't get logger";
 
-$log->debug("creating WebPAC::jsFind object");
+#$log->debug("creating WebPAC::jsFind object");
+#
+#my $index = new WebPAC::jsFind(
+#	index_path => $index_path,
+#	keys => 62,
+#) || die;
 
-my $index = new WebPAC::jsFind(
-	index_path => $index_path,
-	keys => 62,
-) || die;
+$log->debug("creating HyperEstraier object");
+my $index = new WebPAC::HyperEstraier( index_path => $index_path ) || die;
 
 my $thes;
 
@@ -128,6 +133,7 @@
 	{ 'eval' => 'length("v251") == 2 && "v800" =~ m/EUROVOC/ || "v800" =~ m/CROVOC/ && "v251" =~ m/^(H|HD|L|Z|P)$/', 'key' => 'root:v251', 'val' => 'v900' },
 	{ 'eval' => '"v251"', 'key' => 'code:v900', 'val' => 'v561^4:v251' },
 	{ 'eval' => '"v561^4" && "v562^4"', 'key' => 'code:v900', 'val' => 'v561^4:v562^4' },
+	{ 'key' => 'crovoc:v900', 'val' => 'filter{CROVOC}v800' },
 	],
 );
 
@@ -178,7 +184,7 @@
 
 		# strip all non word characters from beginning or end
 		# of word
-		my $words = join(" ",@{$ds->{'swish'}});
+		my $words = unac(join(" ",@{$ds->{'swish'}}));
 		$words =~ s/^\W+//;
 		$words =~ s/\W*\s+\W*/ /g;
 		$words =~ s/\W+$//;
@@ -195,7 +201,7 @@
 			#path => $f,
 			path => $webpac->mfn,
 			headline => $h,
-			words => unac($words),
+			words => $words,
 		);
 	}
 
@@ -276,6 +282,7 @@
 				return(9, $l->{"a:$code:"} ) if (defined($l->{"a:$code:"}));
 			},
 	style		=> 'display: none',
+	iframe		=> 1,
 	},{
 	# 1
 	code_arr	=> sub { @{$_[0]} },
@@ -293,7 +300,7 @@
 	lookup_term	=> sub { shift @{$l->{"d:".$_[0]}} },
 	lookup_mfn	=> sub { shift @{$l->{"900_mfn:".$_[0]}} },
 	have_children	=> sub { return $l->{"a:".$_[1].":".$_[0]} },
-	#style		=> 'display: none',
+	style		=> 'display: none',
 	},{
 	# 3 uži pojam
 	code_arr	=> sub { @{$_[0]} },
@@ -357,19 +364,29 @@
 
 my $tree = new WebPAC::Tree(
 	tree => \@tree,
+	detail_url => sub {
+		my $mfn = shift;
+		my $url = "thes/${mfn}.html";
+		return $url if (-e "./out/$url");
+	},
+	nodes_dir => 'nodes',
 );
 
 $tree->output(
 	dir => './out',
 	html => 'browse.html',
-	template => './output_template/tree.tt',
+	template_dir => './output_template/',
+	template_tree => 'tree.tt',
+	template_node => 'node.tt',
 	js => 'tree-ids.js',
 );
 
 $tree->output(
  	dir => './eurovoc',
  	html => 'hijerarhija.html',
-	template => './output_template/hijerarhija.tt',
+	template_dir => './output_template/',
+	template_tree => 'hijerarhija.tt',
+	template_node => 'hijerarhija_node.tt',
 	js => 'tree-ids.js',
 );