Revision 337 (by dpavlin, 2004/06/10 19:22:40) new trunk for webpac v2
 
#!/usr/bin/perl -w

sub lang_swish {
	my @out;
	foreach my $v1 (@_) {
		push @out,$v1;	# save original
		$v1 =~ s/(HRV|CRO)/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;
}

1;