sub formatNames {
    my $obj = shift;
    my $type = shift;

    my %sChar = ("ä" => "ae", "Ä" => "Ae", "ü" => "ue", "Ü" => "Ue", "ö" => "oe", "Ö" => "Oe", "ß" => "ss" );
    my $replacement = join ("|", keys(%sChar));
        
    if ($type eq 'filename') {
        my $filename = $obj->{DATA}{name};
        $filename =~ s/\s*//g;
        $filename =~ s/($replacement)/$sChar{$1}/g;
        $obj->{DATA}{filename} = $filename;
        return
    }