X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDrafts.pm;h=16111af9c91ec0b45e69a999bb07a5dd1fa09a87;hb=3b4068e20d8f7b044b9f85eccacac99ba3d453b3;hp=891775bc08290a94b2faaa8a5955e06a93f06eb9;hpb=efeb279bbb9b6a924b88c89e136fcb750ed6231a;p=kivitendo-erp.git diff --git a/SL/Drafts.pm b/SL/Drafts.pm index 891775bc0..16111af9c 100644 --- a/SL/Drafts.pm +++ b/SL/Drafts.pm @@ -36,7 +36,7 @@ sub get_module { return ($module, $submodule); } -my @dont_save = qw(login password stylesheet action); +my @dont_save = qw(login password action); sub save { $main::lxdebug->enter_sub(); @@ -45,7 +45,8 @@ sub save { my ($dbh, $sth, $query, %saved, $dumped); - $dbh = $form->dbconnect_noauto($myconfig); + $dbh = $form->get_standard_dbh; + $dbh->begin_work; my ($module, $submodule) = $self->get_module($form); @@ -72,7 +73,6 @@ sub save { do_query($form, $dbh, $query, $draft_description, $dumped, $form->{login}, $draft_id); $dbh->commit(); - $dbh->disconnect(); $form->{draft_id} = $draft_id; $form->{draft_description} = $draft_description; @@ -87,7 +87,7 @@ sub load { my ($dbh, $sth, $query, @values); - $dbh = $form->dbconnect($myconfig); + $dbh = $form->get_standard_dbh; $query = qq|SELECT id, description, form FROM drafts WHERE id = ?|; @@ -98,8 +98,6 @@ sub load { } $sth->finish(); - $dbh->disconnect(); - $main::lxdebug->leave_sub(); return @values; @@ -114,12 +112,12 @@ sub remove { my ($dbh, $sth, $query); - $dbh = $form->dbconnect($myconfig); + $dbh = $form->get_standard_dbh; $query = qq|DELETE FROM drafts WHERE id IN (| . join(", ", map { "?" } @draft_ids) . qq|)|; do_query($form, $dbh, $query, @draft_ids); - $dbh->disconnect(); + $dbh->commit; $main::lxdebug->leave_sub(); }