--- trunk/filter/lang_swish.pm	2003/02/23 07:02:55	26
+++ branches/ffzg/filter/lang_swish.pm	2007/08/23 22:32:15	766
@@ -4,9 +4,20 @@
 	my @out;
 	foreach my $v1 (@_) {
 		push @out,$v1;	# save original
-		my $v2 = $v1;
-		$v2 =~ s/HRV/Hrvatski/gi;
-		push @out,$v2;	# save modified version
+		$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;
+		push @out,$v1;	# save modified version
 	}
 	return @out;
 }