X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/08460123f185fc145d4d87ae150b6b5f051d119a..a6873ed48ebdaee1f5b1df63d431ccc54e829d7d:/SL/Common.pm?ds=inline

diff --git a/SL/Common.pm b/SL/Common.pm
index a0d54feb6..15f8f7b93 100644
--- a/SL/Common.pm
+++ b/SL/Common.pm
@@ -593,8 +593,10 @@ sub copy_file_to_webdav_folder {
     return;
   }
 
+  $form->{attachment_filename} ||= $form->generate_attachment_filename;
+
   my $timestamp =  get_current_formatted_time();
-  my $new_file  =  File::Spec->catfile($form->{cwd}, $webdav_folder, $form->generate_attachment_filename());
+  my $new_file  =  File::Spec->catfile($form->{cwd}, $webdav_folder, $form->{attachment_filename});
   $new_file =~ s{(.*)\.}{$1$timestamp\.};
 
   if (!File::Copy::copy($current_file, $new_file)) {