--- trunk2/all2all.pl	2004/10/30 23:24:54	561
+++ 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,12 +47,14 @@
 		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
 	'CROVOC_img' => sub {
 		my $tmp = shift;
 		$tmp =~ s/\s*#C#\s*/ <img src="..\/img\/crovoc.png" border="0">/gis;
+		$tmp =~ s/"img\/crovoc.png"/"..\/img\/crovoc.png"/gis;
 		return $tmp;
 	}
 };