WebDAV: Überflüssigen Aufruf webdav_path im Frontend entfernt

WebDAV::get_all_objects ruft in der Methode seit Anbeginn des Moduls
schon ein webdav_path auf, von daher schreddern bevor noch  mehr
copy & waste im Programm passiert

diff --git a/SL/Controller/Letter.pm b/SL/Controller/Letter.pm
index ed48f41a9a680c481699d127f05eb31311f6cace..9efca360c4a5ff52647c4393a0b77ceff69cc368 100644 (file)
--- a/SL/Controller/Letter.pm
+++ b/SL/Controller/Letter.pm
@@ -578,7 +578,6 @@ sub init_webdav_objects {
     number   => $self->letter->letternumber,
   );
 
-  my $webdav_path = $webdav->webdav_path;
   my @all_objects = $webdav->get_all_objects;
 
   return [ map {

diff --git a/SL/Controller/Order.pm b/SL/Controller/Order.pm
index 12c689e1c795b701ab1fe744cc74c8334223b6f4..bc7fc5fc6725c8b20d3cef6a95cca5ed1e42d39a 100644 (file)
--- a/SL/Controller/Order.pm
+++ b/SL/Controller/Order.pm
@@ -1088,7 +1088,6 @@ sub _pre_render {
       type     => $self->type,
       number   => $self->order->ordnumber,
     );
-    my $webdav_path = $webdav->webdav_path;
     my @all_objects = $webdav->get_all_objects;
     @{ $self->{template_args}->{WEBDAV} } = map { { name => $_->filename,
                                                     type => t8('File'),

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index cc8f4d4b683012d17d93a3652583e18347b8206f..038c5741f829b13eb5c0e71f549033523b4f8fb7 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -266,7 +266,6 @@ sub display_form {
       type     => 'accounts_payable',
       number   => $form->{invnumber},
     );
-    my $webdav_path = $webdav->webdav_path;
     my @all_objects = $webdav->get_all_objects;
     @{ $form->{WEBDAV} } = map { { name => $_->filename,
                                    type => t8('File'),

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index 0776b7503b6bad4f32f7c6196678cc882f3236b9..0838a367d9c7520fa18d17ccc11beb8599ac73cc 100644 (file)
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -313,7 +313,6 @@ sub edit {
       type     => 'general_ledger',
       number   => $form->{id},
     );
-    my $webdav_path = $webdav->webdav_path;
     my @all_objects = $webdav->get_all_objects;
     @{ $form->{WEBDAV} } = map { { name => $_->filename,
                                    type => t8('File'),