--- trunk2/all2all.pl	2004/10/26 21:44:57	550
+++ trunk2/all2all.pl	2004/10/30 23:04:37	560
@@ -36,15 +36,24 @@
 my $filter = {
 	'CROVOC' => sub {
 		my $tmp = shift || return;
-		return undef unless ($tmp =~ s/\s*CROVOC.*$/ */);
+		return undef unless ($tmp =~ s/\s*CROVOC.*$/ #C#/);
+		# remove repeating stars
+		# FIXME this should be fixed at right place, not here!
+		$tmp =~ s/(\s*#C#)+/ #C#/g;
 		return $tmp;
 	},
 	'CROVOC_tree' => sub {
 		my $tmp = shift || return;
-		$tmp =~ s/\s*CROVOC.*$/ */;
+		$tmp =~ s/\s*CROVOC.*$/ #C#/;
 		$tmp =~ s/\s*EUROVOC.*//;
 		return $tmp;
 	},
+	# TT filter
+	'CROVOC_img' => sub {
+		my $tmp = shift;
+		$tmp =~ s/\s*#C#\s*/ <img src="..\/img\/crovoc.png" border="0">/gis;
+		return $tmp;
+	}
 };
 
 ## remove accented characters
@@ -96,7 +105,7 @@
 
 my $index = new WebPAC::jsFind(
 	index_path => $index_path,
-	keys => 10,
+	keys => 62,
 ) || die;
 
 my $thes;