Revision 6b23fb21
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| SL/FU.pm | ||
|---|---|---|
|
|
||
|
SL::DB->client->with_transaction(sub {
|
||
|
do_query($form, SL::DB->client->dbh, qq|UPDATE follow_ups SET done = TRUE WHERE id = ?|, conv_i($params{id}));
|
||
|
});
|
||
|
1;
|
||
|
}) or do { die SL::DB->client->error };
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
| ... | ... | |
|
do_query($form, $dbh, qq|DELETE FROM follow_up_links WHERE follow_up_id = ?|, $id);
|
||
|
do_query($form, $dbh, qq|DELETE FROM follow_ups WHERE id = ?|, $id);
|
||
|
do_query($form, $dbh, qq|DELETE FROM notes WHERE (trans_id = ?) AND (trans_module = 'fu')|, $id);
|
||
|
});
|
||
|
1;
|
||
|
}) or do { die SL::DB->client->error };
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
$sth->finish();
|
||
|
});
|
||
|
1;
|
||
|
}) or do { die SL::DB->client->error };
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
Auch abrufbar als: Unified diff
single-dbh: Fehler in Transaktionen immer weiterwerfen