converted delimiters to new format

[webpac] / filter / lang_swish.pm

diff --git a/filter/lang_swish.pm b/filter/lang_swish.pm
index 27979e9..7c28d98 100755 (executable)
--- a/filter/lang_swish.pm
+++ b/filter/lang_swish.pm
@@ -4,9 +4,14 @@ sub lang_swish {
        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;
 }