--- trunk/filter/lang_display.pm	2003/02/23 07:02:55	26
+++ branches/humanistika/filter/lang_display.pm	2004/03/12 16:13:12	269
@@ -3,9 +3,13 @@
 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;
+		$v1 =~ s/SLV/Slovenski/gi;
+		$v1 =~ s/RUS/Ruski/gi;
+		$v1 =~ s/FRE/Francuski/gi;
 		push @out,$v1;	# save modified version
 	}
 	return @out;