hidra/filter/lang_display_en.pm

#!/usr/bin/perl -w

sub lang_display_en {
        my @out;
        foreach my $v1 (@_) {
                $v1 =~ s/(HRV|CRO)/Croatian/gi;
                $v1 =~ s/GER/German/gi;
                $v1 =~ s/ENG/English/gi;
                $v1 =~ s/ITA/Italian/gi;
                $v1 =~ s/SLV/Slovenian/gi;
                $v1 =~ s/RUS/Russian/gi;
                $v1 =~ s/FRE/French/gi;
                push @out,$v1;  # save modified version
        }
        return @out;
}

1;
1	dpavlin	380	#!/usr/bin/perl -w
2
3			sub lang_display_en {
4			my @out;
5			foreach my $v1 (@_) {
6			$v1 =~ s/(HRV\|CRO)/Croatian/gi;
7			$v1 =~ s/GER/German/gi;
8			$v1 =~ s/ENG/English/gi;
9			$v1 =~ s/ITA/Italian/gi;
10			$v1 =~ s/SLV/Slovenian/gi;
11			$v1 =~ s/RUS/Russian/gi;
12			$v1 =~ s/FRE/French/gi;
13			push @out,$v1; # save modified version
14			}
15			return @out;
16			}
17
18			1;