--- branches/ffzg/filter/lang_display.pm 2004/12/31 02:30:55 613 +++ branches/ffzg/filter/lang_display.pm 2008/08/03 00:22:31 772 @@ -3,16 +3,19 @@ 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/g; + $v1 =~ s/SCC/srpski/g; + $v1 =~ s/GER/njemački/g; + $v1 =~ s/ENG/engleski/g; + $v1 =~ s/ITA/talijanski/g; + $v1 =~ s/SLV/slovenski/g; + $v1 =~ s/RUS/ruski/g; + $v1 =~ s/(FRE|FR)/francuski/g; + $v1 =~ s/MAC/makedonski/g; + $v1 =~ s/HUN/mađarski/g; + $v1 =~ s/SWE/švedski/g; + $v1 =~ s/SAN/sanskrt/g; + $v1 =~ s/BOS/bosanski/g; push @out,$v1; # save modified version } return @out;