X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/03d3d025ea4c8bea085fc7cdf1fe7be0b513eb63..37ce1a9c9052de31c299f37bdf591a8d87e3963a:/SL/Common.pm

diff --git a/SL/Common.pm b/SL/Common.pm
index 127209a7f..82cadbfaf 100644
--- a/SL/Common.pm
+++ b/SL/Common.pm
@@ -647,7 +647,7 @@ sub copy_file_to_webdav_folder {
 
   my $timestamp =  get_current_formatted_time();
   my $new_file  =  File::Spec->catfile($form->{cwd}, $webdav_folder, $form->generate_attachment_filename());
-  $new_file     =~ s/\./$timestamp\./;
+  $new_file =~ s{(.*)\.}{$1$timestamp\.};
 
   if (!File::Copy::copy($current_file, $new_file)) {
     $::lxdebug->message(LXDebug::WARN(), "Copy file from $current_file to $new_file failed: $ERRNO");