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 25c11f7..cfc1f68 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 5c0102b..82b8a2a 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 0af3450..4ceb128 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 2c5f74a..7237a59 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();