35 |
my $filter = { |
my $filter = { |
36 |
'CROVOC' => sub { |
'CROVOC' => sub { |
37 |
my $tmp = shift || return; |
my $tmp = shift || return; |
38 |
return undef unless ($tmp =~ s/\s+CROVOC.*$/ */); |
return undef unless ($tmp =~ s/\s*CROVOC.*$/ */); |
39 |
return $tmp; |
return $tmp; |
40 |
}, |
}, |
41 |
'CROVOC_tree' => sub { |
'CROVOC_tree' => sub { |
42 |
my $tmp = shift || return; |
my $tmp = shift || return; |
43 |
$tmp =~ s/\s+CROVOC.*$/ */; |
$tmp =~ s/\s*CROVOC.*$/ */; |
44 |
$tmp =~ s/\s+EUROVOC.*//; |
$tmp =~ s/\s*EUROVOC.*//; |
45 |
return $tmp; |
return $tmp; |
46 |
}, |
}, |
47 |
}; |
}; |