Parent Directory | Revision Log
new trunk for webpac v2
1 | #!/usr/bin/perl -w |
2 | |
3 | sub lang_swish { |
4 | my @out; |
5 | foreach my $v1 (@_) { |
6 | push @out,$v1; # save original |
7 | $v1 =~ s/(HRV|CRO)/Hrvatski/gi; |
8 | $v1 =~ s/GER/Njemaèki/gi; |
9 | $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; |
17 | } |
18 | |
19 | 1; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.3 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |