X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDrafts.pm;h=698b217f5670d8bcd7c3cefbdcb2dc1d44ac6b4b;hb=226b80e3c56c07d022b1238774302de8d83d01c5;hp=2ff3df86c5bda590544f7055e7ea21f8a3023539;hpb=bde667c235b2347bdd1322f118b032a2f0d93367;p=kivitendo-erp.git

diff --git a/SL/Drafts.pm b/SL/Drafts.pm
index 2ff3df86c..698b217f5 100644
--- a/SL/Drafts.pm
+++ b/SL/Drafts.pm
@@ -96,7 +96,7 @@ sub load {
   }
   $sth->finish();
 
-  do_query($form, $dbh, "DELETE FROM drafts WHERE id = ?", $draft_id);
+#  do_query($form, $dbh, "DELETE FROM drafts WHERE id = ?", $draft_id);
 
   $dbh->disconnect();
 
@@ -108,16 +108,17 @@ sub load {
 sub remove {
   $main::lxdebug->enter_sub();
 
-  my ($self, $myconfig, $form, $draft_id) = @_;
+  my ($self, $myconfig, $form, @draft_ids) = @_;
 
-  return $main::lxdebug->leave_sub() unless ($draft_id);
+  return $main::lxdebug->leave_sub() unless (@draft_ids);
 
-  my ($dbh, $sth, $query, @values);
+  my ($dbh, $sth, $query);
 
   $dbh = $form->dbconnect($myconfig);
 
-  $query = qq|DELETE FROM drafts WHERE id = ?|;
-  do_query($form, $dbh, $query, $draft_id);
+  $query = qq|DELETE FROM drafts WHERE id IN (| .
+    join(", ", map({ "?" } @draft_ids)) . qq|)|;
+  do_query($form, $dbh, $query, @draft_ids);
 
   $dbh->disconnect();