--- branches/humanistika/filter/lang_display.pm 2004/03/12 16:09:56 268 +++ branches/humanistika/filter/lang_display.pm 2004/03/12 16:13:12 269 @@ -3,7 +3,7 @@ sub lang_display { my @out; foreach my $v1 (@_) { - $v1 =~ s/(HRV|CRO)/Hrvatski/gi; + $v1 =~ s/(HRV|CRO|SCR)/Hrvatski/gi; $v1 =~ s/GER/Njemački/gi; $v1 =~ s/ENG/Engleski/gi; $v1 =~ s/ITA/Talijanski/gi;