--- trunk/filter/lang_swish.pm 2003/03/15 21:34:36 41 +++ trunk/filter/lang_swish.pm 2003/03/15 21:48:48 42 @@ -4,9 +4,10 @@ my @out; foreach my $v1 (@_) { push @out,$v1; # save original - my $v2 = $v1; - $v2 =~ s/HRV/Hrvatski/gi; - push @out,$v2; # save modified version + $v1 =~ s/(HRV|CRO)/Hrvatski/gi; + $v1 =~ s/GER/Njemački/gi; + $v1 =~ s/ENG/Engleski/gi; + push @out,$v1; # save modified version } return @out; }