--- branches/ffzg/filter/lang_display.pm 2008/08/03 00:22:30 771 +++ branches/ffzg/filter/lang_display.pm 2008/08/03 00:22:31 772 @@ -3,19 +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/SWE/švedski/gi; - $v1 =~ s/BOS/bosanski/gi; - $v1 =~ s/SAN/sanskrt/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;