Webdav-Datei-Aufruf direkt mit Backend-Funktion

Webdav Pfad und Dateiname muss nicht bei der Parameterübergabe
zusammengebaut werden. Besser direkt die Funktion Webdav->full_filedescriptor
hierfür nutzen

diff --git a/SL/Controller/Letter.pm b/SL/Controller/Letter.pm
index 25c11f78063e9f9782c4b51e2e1c74c675804773..cfc1f6867176bca26cb973e0cae59ec499d7dcae 100644 (file)
--- a/SL/Controller/Letter.pm
+++ b/SL/Controller/Letter.pm
@@ -616,7 +616,7 @@ sub init_webdav_objects {
   return [ map {
     +{ name => $_->filename,
        type => t8('File'),
-       link => File::Spec->catdir($webdav_path, $_->filename),
+       link => File::Spec->catfile($_->full_filedescriptor),
      }
   } @all_objects ];
 }

diff --git a/SL/Controller/Order.pm b/SL/Controller/Order.pm
index 5c0102b39e36843610765e9efc7658e9360f41ef..82b8a2ab0dab9a3f42b7cf585c6b5cdf89346e99 100644 (file)
--- a/SL/Controller/Order.pm
+++ b/SL/Controller/Order.pm
@@ -1081,7 +1081,7 @@ sub _pre_render {
     my @all_objects = $webdav->get_all_objects;
     @{ $self->{template_args}->{WEBDAV} } = map { { name => $_->filename,
                                                     type => t8('File'),
-                                                    link => File::Spec->catdir($webdav_path, $_->filename),
+                                                    link => File::Spec->catfile($_->full_filedescriptor),
                                                 } } @all_objects;
   }
 

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 0af34509a584525ff2654e7c72cefaf07bf6be9c..4ceb1281925c1897bf94d56c3f40ca2b8ad8d1dd 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -137,7 +137,7 @@ sub display_form {
     my @all_objects = $webdav->get_all_objects;
     @{ $form->{WEBDAV} } = map { { name => $_->filename,
                                    type => t8('File'),
-                                   link => File::Spec->catdir($webdav_path, $_->filename),
+                                   link => File::Spec->catfile($_->full_filedescriptor),
                                } } @all_objects;
   }
   &form_header;

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index 2c5f74a7eb02a4e443b593afd1e7e4f1496fb8cf..7237a593c86a939f7f8e58c659b4ee5457e35900 100644 (file)
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -211,7 +211,7 @@ sub edit {
     my @all_objects = $webdav->get_all_objects;
     @{ $form->{WEBDAV} } = map { { name => $_->filename,
                                    type => t8('File'),
-                                   link => File::Spec->catdir($webdav_path, $_->filename),
+                                   link => File::Spec->catfile($_->full_filedescriptor),
                                } } @all_objects;
   }
   form_header();