Parent Directory | Revision Log
filters and import_xml definitions for Humanistika
1 | dpavlin | 26 | #!/usr/bin/perl -w |
2 | |||
3 | sub lang_display { | ||
4 | my @out; | ||
5 | foreach my $v1 (@_) { | ||
6 | dpavlin | 269 | $v1 =~ s/(HRV|CRO|SCR)/Hrvatski/gi; |
7 | dpavlin | 26 | $v1 =~ s/GER/Njemaèki/gi; |
8 | $v1 =~ s/ENG/Engleski/gi; | ||
9 | dpavlin | 145 | $v1 =~ s/ITA/Talijanski/gi; |
10 | $v1 =~ s/SLV/Slovenski/gi; | ||
11 | $v1 =~ s/RUS/Ruski/gi; | ||
12 | $v1 =~ s/FRE/Francuski/gi; | ||
13 | dpavlin | 26 | push @out,$v1; # save modified version |
14 | } | ||
15 | return @out; | ||
16 | } | ||
17 | |||
18 | 1; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.2 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |