X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDrafts.pm;h=44088994b05b27e5b61c8a2269a47820bcf4a657;hb=0bd2361a0fe7bb89b69be5e08163c7d7c3f48dcf;hp=96d4d913ea34f223c851cb24e24fed917303f7dc;hpb=14e6ba3a190d322d2e6110e6d846c61f73787885;p=kivitendo-erp.git diff --git a/SL/Drafts.pm b/SL/Drafts.pm index 96d4d913e..44088994b 100644 --- a/SL/Drafts.pm +++ b/SL/Drafts.pm @@ -34,12 +34,14 @@ sub get_module { return ($module, $submodule); } +@dont_save = qw(login password stylesheet action); + sub save { $main::lxdebug->enter_sub(); my ($self, $myconfig, $form, $draft_id, $draft_description) = @_; - my ($dbh, $sth, $query, %saved, @dont_save, $dumped); + my ($dbh, $sth, $query, %saved, $dumped); $dbh = $form->dbconnect_noauto($myconfig); @@ -54,7 +56,6 @@ sub save { do_query($form, $dbh, $query, $draft_id, $module, $submodule); } - @dont_save = qw(login password action); map({ $saved{$_} = $form->{$_}; delete($form->{$_}); } @dont_save);