Parent Directory | Revision Log | Patch
revision 26 by dpavlin, Sun Feb 23 07:02:55 2003 UTC | revision 152 by dpavlin, Sun Nov 16 22:40:04 2003 UTC | |
---|---|---|
# | Line 4 sub lang_swish { | Line 4 sub lang_swish { |
4 | my @out; | my @out; |
5 | foreach my $v1 (@_) { | foreach my $v1 (@_) { |
6 | push @out,$v1; # save original | push @out,$v1; # save original |
7 | my $v2 = $v1; | $v1 =~ s/(HRV|CRO)/Hrvatski/gi; |
8 | $v2 =~ s/HRV/Hrvatski/gi; | $v1 =~ s/GER/Njemački/gi; |
9 | push @out,$v2; # save modified version | $v1 =~ s/ENG/Engleski/gi; |
10 | $v1 =~ s/ITA/Talijanski/gi; | |
11 | $v1 =~ s/SLV/Slovenski/gi; | |
12 | $v1 =~ s/RUS/Ruski/gi; | |
13 | $v1 =~ s/FRE/Francuski/gi; | |
14 | push @out,$v1; # save modified version | |
15 | } | } |
16 | return @out; | return @out; |
17 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |