projects
/
webpac
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
ported 257:258 from hidra branch
[webpac]
/
filter
/
lang_display.pm
1
#!/usr/bin/perl -w
2
3
sub lang_display {
4
my @out;
5
foreach my $v1 (@_) {
6
$v1 =~ s/(HRV|CRO)/Hrvatski/gi;
7
$v1 =~ s/GER/Njemaèki/gi;
8
$v1 =~ s/ENG/Engleski/gi;
9
$v1 =~ s/ITA/Talijanski/gi;
10
$v1 =~ s/SLV/Slovenski/gi;
11
$v1 =~ s/RUS/Ruski/gi;
12
$v1 =~ s/FRE/Francuski/gi;
13
push @out,$v1; # save modified version
14
}
15
return @out;
16
}
17
18
1;