Parent Directory | Revision Log
local changes
1 | #!/usr/bin/perl -w |
2 | |
3 | sub lang_display { |
4 | my @out; |
5 | foreach my $v1 (@_) { |
6 | $v1 =~ s/(HRV|CRO)/hrvatski/g; |
7 | $v1 =~ s/SCC/srpski/g; |
8 | $v1 =~ s/GER/njemaèki/g; |
9 | $v1 =~ s/ENG/engleski/g; |
10 | $v1 =~ s/ITA/talijanski/g; |
11 | $v1 =~ s/SLV/slovenski/g; |
12 | $v1 =~ s/RUS/ruski/g; |
13 | $v1 =~ s/(FRE|FR)/francuski/g; |
14 | $v1 =~ s/MAC/makedonski/g; |
15 | $v1 =~ s/HUN/maðarski/g; |
16 | $v1 =~ s/SWE/¹vedski/g; |
17 | $v1 =~ s/SAN/sanskrt/g; |
18 | $v1 =~ s/BOS/bosanski/g; |
19 | push @out,$v1; # save modified version |
20 | } |
21 | return @out; |
22 | } |
23 | |
24 | 1; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.2 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |