--- branches/ffzg/filter/lang_display.pm 2004/12/31 02:30:55 613 +++ branches/ffzg/filter/lang_display.pm 2006/04/13 19:39:14 729 @@ -3,16 +3,17 @@ sub lang_display { my @out; foreach my $v1 (@_) { - $v1 =~ s/(HRV|CRO)/Hrvatski/gi; - $v1 =~ s/SCC/Srpski/gi; - $v1 =~ s/GER/Njemački/gi; - $v1 =~ s/ENG/Engleski/gi; - $v1 =~ s/ITA/Talijanski/gi; - $v1 =~ s/SLV/Slovenski/gi; - $v1 =~ s/RUS/Ruski/gi; - $v1 =~ s/(FRE|FR)/Francuski/gi; - $v1 =~ s/MAC/Makedonski/gi; - $v1 =~ s/HUN/Mađarski/gi; + $v1 =~ s/(HRV|CRO)/hrvatski/gi; + $v1 =~ s/SCC/srpski/gi; + $v1 =~ s/GER/njemački/gi; + $v1 =~ s/ENG/engleski/gi; + $v1 =~ s/ITA/talijanski/gi; + $v1 =~ s/SLV/slovenski/gi; + $v1 =~ s/RUS/ruski/gi; + $v1 =~ s/(FRE|FR)/francuski/gi; + $v1 =~ s/MAC/makedonski/gi; + $v1 =~ s/HUN/mađarski/gi; + $v1 =~ s/SWE/švedski/gi; push @out,$v1; # save modified version } return @out;