------------------------------------------------------------------------

[kivitendo-erp.git] / SL / IS.pm

diff --git a/SL/IS.pm b/SL/IS.pm
index 8e2514478f17241836fe690b07b1d8ceb099240b..ca43fd8abcd0ef297fd3c1bfcf0374c7fa3971b6 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -40,6 +40,7 @@ use SL::AM;
 use SL::CVar;
 use SL::Common;
 use SL::DBUtils;
+use SL::DO;
 use SL::MoreCommon;
 use Data::Dumper;
 
@@ -969,6 +970,13 @@ sub post_invoice {
 
   Common::webdav_folder($form) if ($main::webdav);
 
+  my @close_do_ids = map { $_ * 1 } grep { $_ } split m/\s+/, $form->{close_do_ids};
+
+  if (scalar @close_do_ids) {
+    DO->close_orders('dbh' => $dbh,
+                     'ids' => \@close_do_ids);
+  }
+
   my $rc = 1;
   if (!$provided_dbh) {
     $dbh->commit();