X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDrafts.pm;h=e5242aa4d48f72e61346d9053c605d69bf374440;hb=afe7df8b3ebf17140e0d008ebb9852a6e392c3f4;hp=16111af9c91ec0b45e69a999bb07a5dd1fa09a87;hpb=075bd42af8885aee3c18fe055a2c82b8b43f4cea;p=kivitendo-erp.git

diff --git a/SL/Drafts.pm b/SL/Drafts.pm
index 16111af9c..e5242aa4d 100644
--- a/SL/Drafts.pm
+++ b/SL/Drafts.pm
@@ -38,6 +38,10 @@ sub get_module {
 
 my @dont_save = qw(login password action);
 
+sub dont_save {
+  return @dont_save;
+}
+
 sub save {
   $main::lxdebug->enter_sub();
 
@@ -70,7 +74,7 @@ sub save {
     qq|  (SELECT id FROM employee WHERE login = ?) | .
     qq|WHERE id = ?|;
 
-  do_query($form, $dbh, $query, $draft_description, $dumped, $form->{login}, $draft_id);
+  do_query($form, $dbh, $query, $draft_description, $dumped, $::myconfig{login}, $draft_id);
 
   $dbh->commit();