#############################################

sub encode4umlaut
{## Javascript Unicodes zur Darstellung der Umlaute
my $ec4=$_[0];
@Umlaute=("ä","ö","ü","Ä","Ö","Ü","ß");
@Ecode=("\\u00e4","\\u00f6","\\u00fc","\\u00c4","\\u00d6","\\u00dc","\\u00df");
map{$ec4 =~ sŽ$Umlaute[$_]Ž$Ecode[$_]Žge}(0..6);
return("$ec4");
}##

#------------------------------------------
$ecode_file=&encode4umlaut($umlaut_file);
$ecode_file =~ s#\n#\\n#g;
$ecode_file =~ s#\"#\\"#g;
#------------------------------------------
</perl>