Auftrags-Controller: Webdav

diff --git a/SL/Controller/Order.pm b/SL/Controller/Order.pm
index 6c71422ac37f5226b95fb5d3ba5debb773a8d510..80dc814c6de151322ee171d1423023df88f80bb8 100644 (file)
--- a/SL/Controller/Order.pm
+++ b/SL/Controller/Order.pm
@@ -9,6 +9,7 @@ use SL::Locale::String;
 use SL::SessionFile::Random;
 use SL::PriceSource;
 use SL::Form;
 use SL::SessionFile::Random;
 use SL::PriceSource;
 use SL::Form;

+use SL::Webdav;

 
 use SL::DB::Order;
 use SL::DB::Customer;
 
 use SL::DB::Order;
 use SL::DB::Customer;


@@ -153,6 +154,24 @@ sub action_create_pdf {
 
   my $pdf_filename = $form->generate_attachment_filename();
 
 
   my $pdf_filename = $form->generate_attachment_filename();
 

+  # copy file to webdav folder
+  if ($self->order->ordnumber && $::instance_conf->get_webdav_documents) {
+    my $webdav = SL::Webdav->new(
+      type     => $self->type,
+      number   => $self->order->ordnumber,
+    );
+    my $webdav_file = SL::Webdav::File->new(
+      webdav   => $webdav,
+      filename => $pdf_filename,
+    );
+    eval {
+      $webdav_file->store(data => \$pdf);
+      1;
+    } or do {
+      $self->js->flash('error', t8('Storing PDF to webdav folder failed: #1', $@));
+    }
+  }
+

   $self->js
     ->run('download_pdf', $pdf_filename, $key)
     ->flash('info', t8('The PDF has been created'))->render($self);
   $self->js
     ->run('download_pdf', $pdf_filename, $key)
     ->flash('info', t8('The PDF has been created'))->render($self);


@@ -651,6 +670,19 @@ sub _pre_render {
 
   }
 
 
   }
 

+  if ($self->order->ordnumber && $::instance_conf->get_webdav) {
+    my $webdav = SL::Webdav->new(
+      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'),
+                                                    link => File::Spec->catdir($webdav_path, $_->filename),
+                                                } } @all_objects;
+  }
+

   $::request->{layout}->use_javascript("${_}.js")  for qw(ckeditor/ckeditor ckeditor/adapters/jquery);
 }
 
   $::request->{layout}->use_javascript("${_}.js")  for qw(ckeditor/ckeditor ckeditor/adapters/jquery);
 }
 

diff --git a/locale/de/all b/locale/de/all
index 580cfff760dbb686da797a0b104f2f9e05476a22..b3ac925b692e05b063b3f5902d03a1a7fd856450 100755 (executable)
--- a/locale/de/all
+++ b/locale/de/all
@@ -2576,6 +2576,7 @@ $self->{texts} = {
   'Stocked Qty'                 => 'Lagermenge',
   'Stop task server'            => 'Task-Server beenden',
   'Stopping the task server failed. Output:' => 'Das Beenden des Task-Servers schlug fehl.',
   'Stocked Qty'                 => 'Lagermenge',
   'Stop task server'            => 'Task-Server beenden',
   'Stopping the task server failed. Output:' => 'Das Beenden des Task-Servers schlug fehl.',

+  'Storing PDF to webdav folder failed: #1' => 'Speichern der PDF im WebDAV Ordner fehlgeschlagen: #1',

   'Storing the emails in the journal is currently disabled in the client configuration.' => 'Das Speichern von versendeten E-Mails ist derzeit in der Mandantenkonfigurierung abgeschaltet.',
   'Storno'                      => 'Storno',
   'Storno (one letter abbreviation)' => 'S',
   'Storing the emails in the journal is currently disabled in the client configuration.' => 'Das Speichern von versendeten E-Mails ist derzeit in der Mandantenkonfigurierung abgeschaltet.',
   'Storno'                      => 'Storno',
   'Storno (one letter abbreviation)' => 'S',