if (($mode ne 'EDIT') && ($mode ne 'PREVIEW')) {
my $ablage="";
print "\n";
my $sprach="en";
my $ob_de="1";
my $ob_en="1";
my $ob_fr="";
if (($ob_de eq '1') && ($sprach ne 'de')) {
$savep = substr($ablage,0,length($ablage)-3).".de";
print "Deutsch\n";
}
if (($ob_en eq '1') && ($sprach ne 'en')) {
$savep = substr($ablage,0,length($ablage)-3).".en";
print "English\n";
}
if (($ob_fr eq '1') && ($sprach ne 'fr')) {
$savep = substr($ablage,0,length($ablage)-3).".fr";
print "Français\n";
}
print "\n";
}
