X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FCommon.pm;h=733eb74d8c6e1f8ba2ad1dff3b7602920b9e6a04;hb=1eed893e6c316a1e08097a3c29ad65c63028e437;hp=0f172ddc65600c8d153952e6a8bacd9529451e40;hpb=4b17528afa621f6174983f4002f2cf7d9f092357;p=kivitendo-erp.git

diff --git a/SL/Common.pm b/SL/Common.pm
index 0f172ddc6..733eb74d8 100644
--- a/SL/Common.pm
+++ b/SL/Common.pm
@@ -19,6 +19,7 @@ use File::Copy ();
 use File::stat;
 use File::Slurp;
 use File::Spec;
+use List::MoreUtils qw(apply);
 use POSIX ();
 
 use SL::DBUtils;
@@ -607,14 +608,14 @@ sub copy_file_to_webdav_folder {
   foreach my $item (qw(tmpdir tmpfile type)){
     next if $form->{$item};
     $::lxdebug->message(LXDebug::WARN(), 'Missing parameter');
-    $::form->error($::locale->text("Missing parameter for webdav file copy"));
+    $::form->error($::locale->text("Missing parameter for WebDAV file copy"));
   }
 
   my ($webdav_folder, $document_name) =  get_webdav_folder($form);
 
   if (! $webdav_folder){
     $::lxdebug->leave_sub();
-    $::form->error($::locale->text("Cannot check correct webdav folder"));
+    $::form->error($::locale->text("Cannot check correct WebDAV folder"));
     return undef;
   }
 
@@ -633,8 +634,7 @@ sub copy_file_to_webdav_folder {
   $latest_file_name    = File::Spec->catfile($complete_path, $newest_name);
   my $filesize         = stat($latest_file_name)->size;
 
-  my ($ext)            = $form->{tmpfile} =~ /(\.[^.]+)$/;
-  my $current_file     = File::Spec->catfile($form->{tmpdir}, $form->{tmpfile});
+  my $current_file     = File::Spec->catfile($form->{tmpdir}, apply { s:.*/:: } $form->{tmpfile});
   my $current_filesize = -f $current_file ? stat($current_file)->size : 0;
 
   if ($current_filesize == $filesize) {