/SL/AM.pm - Diff - projekt kivitendo - wissen

« Zurück | Weiter »

Revision 6b23fb21

Von Sven Schöling vor mehr als 8 Jahren hinzugefügt

ID 6b23fb212fb1cee6e1034601d3ceb22a182e50f0
Vorgänger 63cbca66
Nachfolger 2dda5e9d

single-dbh: Fehler in Transaktionen immer weiterwerfen

       SL::DB->client->with_transaction(sub {
         $query = qq|DELETE FROM leads WHERE id = ?|;
         do_query($form, SL::DB->client->dbh, $query, $form->{id});
       });
 ;
       }) or do { die SL::DB->client->error };
       $main::lxdebug->leave_sub();
+    }
-...
             ") VALUES (?, ?, ?, ?, ?, ?)";
+        }
         do_query($form, $dbh, $query, @values);
       });
 ;
       }) or do { die SL::DB->client->error };
       $main::lxdebug->leave_sub();
+    }
-...
         $query = "DELETE FROM language WHERE id = ?";
         do_query($form, $dbh, $query, $form->{"id"});
       });
 ;
       }) or do { die SL::DB->client->error };
       $main::lxdebug->leave_sub();
+    }
-...
         # set close in defaults
         do_query($form, $dbh, $query, @values);
       });
 ;
       }) or do { die SL::DB->client->error };
       $main::lxdebug->leave_sub();
+    }
-...
+          }
           $sth->finish();
+        }
       });
 ;
       }) or do { die SL::DB->client->error };
       $main::lxdebug->leave_sub();
+    }
-...
       SL::DB->client->with_transaction(sub {
         $query = qq|DELETE FROM tax WHERE id = ?|;
         do_query($form, SL::DB->client->dbh, $query, $form->{id});
       });
 ;
       }) or do { die SL::DB->client->error };
       $main::lxdebug->leave_sub();
+    }
-...
+        }
         do_query($form, $dbh, $query, @values);
       });
 ;
       }) or do { die SL::DB->client->error };
       $main::lxdebug->leave_sub();
+    }
-...
       SL::DB->client->with_transaction(sub {
         do_query($form, SL::DB->client->dbh, qq|DELETE FROM price_factors WHERE id = ?|, conv_i($form->{id}));
       });
 ;
       }) or do { die SL::DB->client->error };
       $main::lxdebug->leave_sub();
+    }
-...
           $sth->finish();
+        }
       });
 ;
       }) or do { die SL::DB->client->error };
       $main::lxdebug->leave_sub();
+    }
-...
+        }
         $sth->finish();
       });
 ;
       }) or do { die SL::DB->client->error };
       $main::lxdebug->leave_sub();
+    }

Auch abrufbar als: Unified diff

Projekt

Allgemein

Profil

projekt kivitendo

Revision 6b23fb21

Von Sven Schöling vor mehr als 8 Jahren hinzugefügt