--- trunk/filter/lang_swish.pm 2003/02/23 07:02:55 26 +++ trunk/filter/lang_swish.pm 2003/11/16 22:40:04 152 @@ -4,9 +4,14 @@ 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; + $v1 =~ s/ITA/Talijanski/gi; + $v1 =~ s/SLV/Slovenski/gi; + $v1 =~ s/RUS/Ruski/gi; + $v1 =~ s/FRE/Francuski/gi; + push @out,$v1; # save modified version } return @out; }