--- trunk2/all2all.pl	2004/10/30 23:56:57	562
+++ trunk2/all2all.pl	2004/10/31 18:43:33	566
@@ -36,6 +36,7 @@
 my $filter = {
 	'CROVOC' => sub {
 		my $tmp = shift || return;
+		$tmp =~ s/\s*HIDRA.*//;
 		return undef unless ($tmp =~ s/\s*CROVOC.*$/ #C#/);
 		# remove repeating stars
 		# FIXME this should be fixed at right place, not here!
@@ -46,6 +47,7 @@
 		my $tmp = shift || return;
 		$tmp =~ s/\s*CROVOC.*$/ <img src="img\/crovoc.png" border="0">/;
 		$tmp =~ s/\s*EUROVOC.*//;
+		$tmp =~ s/\s*HIDRA.*//;
 		return $tmp;
 	},
 	# TT filter