From b166ba3bdc7dbc69b5be36501905508fd3dce242 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@kivitendo-premium.de>
Date: Fri, 23 Dec 2016 09:35:11 +0100
Subject: [PATCH] Dialogbuchen um WebDAV-Funktion erweitert

---
 SL/Webdav.pm                           |  1 +
 bin/mozilla/gl.pl                      | 19 +++++++++++++++++++
 templates/webpages/gl/form_footer.html |  4 ++++
 templates/webpages/gl/form_header.html |  9 +++++++++
 4 files changed, 33 insertions(+)

diff --git a/SL/Webdav.pm b/SL/Webdav.pm
index 505fef46d..22a402073 100644
--- a/SL/Webdav.pm
+++ b/SL/Webdav.pm
@@ -30,6 +30,7 @@ my %type_to_path = (
   service                 => 'dienstleistungen',
   assembly                => 'erzeugnisse',
   letter                  => 'briefe',
+  general_ledger          => 'dialogbuchungen',
 );
 
 sub get_all_files {
diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index 77591f5d2..2c5f74a7e 100644
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -43,6 +43,8 @@ use SL::GL;
 use SL::IS;
 use SL::ReportGenerator;
 use SL::DBUtils qw(selectrow_query selectall_hashref_query);
+use SL::Webdav;
+use SL::Locale::String qw(t8);
 
 require "bin/mozilla/common.pl";
 require "bin/mozilla/reportgenerator.pl";
@@ -200,6 +202,18 @@ sub edit {
 
   $form->{show_details} = $myconfig{show_form_details} unless defined $form->{show_details};
 
+  if ($form->{reference} && $::instance_conf->get_webdav) {
+    my $webdav = SL::Webdav->new(
+      type     => 'general_ledger',
+      number   => $form->{reference},
+    );
+    my $webdav_path = $webdav->webdav_path;
+    my @all_objects = $webdav->get_all_objects;
+    @{ $form->{WEBDAV} } = map { { name => $_->filename,
+                                   type => t8('File'),
+                                   link => File::Spec->catdir($webdav_path, $_->filename),
+                               } } @all_objects;
+  }
   form_header();
   display_rows();
   form_footer();
@@ -1168,6 +1182,11 @@ sub post {
   $form->{storno} = 0;
 
   post_transaction();
+  if ($::instance_conf->get_webdav) {
+    SL::Webdav->new(type     => 'general_ledger',
+                    number   => $form->{reference},
+                   )->webdav_path;
+  }
 
   $form->{callback} = build_std_url("action=add", "show_details");
   $form->redirect($form->{callback});
diff --git a/templates/webpages/gl/form_footer.html b/templates/webpages/gl/form_footer.html
index 1742ec34e..48bbbea62 100644
--- a/templates/webpages/gl/form_footer.html
+++ b/templates/webpages/gl/form_footer.html
@@ -14,7 +14,11 @@
   </td>
   </tr>
 </table>
+</div>
+[% PROCESS 'webdav/_list.html' %]
+</div>
 
+<hr size="3" noshade>
 <input name=callback type=hidden value="[% callback %]">
 
 [%- IF id && follow_ups.size %]
diff --git a/templates/webpages/gl/form_header.html b/templates/webpages/gl/form_header.html
index 1ad7197e8..ec74206fd 100644
--- a/templates/webpages/gl/form_header.html
+++ b/templates/webpages/gl/form_header.html
@@ -49,6 +49,15 @@ function updateTaxes(row)
 <input type="hidden" name="follow_up_trans_info_1" value="[% id | html %]">
 <input type="hidden" name="follow_up_rowcount" value="1">
 
+<div id="ir_tabs" class="tabwidget">
+ <ul>
+  <li><a href="#ui-tabs-basic-data">[% 'Basic Data' | $T8 %]</a></li>
+[%- IF INSTANCE_CONF.get_webdav %]
+  <li><a href="#ui-tabs-webdav">[% 'WebDAV' | $T8 %]</a></li>
+[%- END %]
+ </ul>
+ <div id="ui-tabs-basic-data">
+
 <table width=100%>
 [%- IF saved_message %]
   <tr>
-- 
2.20.1