Merge pull request #8620 from ehuelsmann/adr/persister-concerns

Follow-up to #8566: adjust persister concerns
ledgersmb · Jan 25, 2025 · a908c76 · a908c76
2 parents 3ede342 + d707bf8
commit a908c76
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/lib/LedgerSMB/Workflow/Action/TransactionApprove.pm b/lib/LedgerSMB/Workflow/Action/TransactionApprove.pm
@@ -37,14 +37,14 @@ Implements the C<Workflow::Action> protocol.
 my $query = <<~'SQL';
   select draft_approve(id)
     from transactions
-   where id = ? and not approved
+   where workflow_id = ? and not approved
   SQL
 
 sub execute( $self, $wf ) {
     $self->SUPER::execute($wf);
 
     my $dbh = $wf->handle;
-    $dbh->do($query, {}, $wf->context->param('id'))
+    $dbh->do($query, {}, $wf->id)
         or die $dbh->errstr;
 
     return;

diff --git a/lib/LedgerSMB/Workflow/Action/TransactionDelete.pm b/lib/LedgerSMB/Workflow/Action/TransactionDelete.pm
@@ -37,14 +37,14 @@ Implements the C<Workflow::Action> protocol.
 my $query = <<~'SQL';
   select draft_delete(id)
     from transactions
-   where id = ?
+   where workflow_id = ?
   SQL
 
 sub execute( $self, $wf ) {
     $self->SUPER::execute($wf);
 
     my $dbh = $wf->handle;
-    $dbh->do($query, {}, $wf->context->param('id'))
+    $dbh->do($query, {}, $wf->id)
         or die $dbh->errstr;
 
     return;