Merge pull request #7529 from ehuelsmann/cleanup/improved-db-error-check

Improve error checking on DBI calls
ledgersmb · Jul 23, 2023 · 14ee3a8 · 14ee3a8
2 parents 87741d0 + 9f994d9
commit 14ee3a8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/old/lib/LedgerSMB/Form.pm b/old/lib/LedgerSMB/Form.pm
@@ -1993,7 +1993,7 @@ sub create_links {
             WHERE a.id = ? AND c.entity_class =
                 (select id FROM entity_class
                 WHERE class ilike ?)|;
-        $sth = $dbh->prepare($query);
+        $sth = $dbh->prepare($query) || $self->dberror($query);
         $sth->execute( $self->{id}, $self->{vc} ) || $self->dberror($query);
 
         $ref = $sth->fetchrow_hashref('NAME_lc');