Revision d1090a8c
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| bin/mozilla/common.pl | ||
|---|---|---|
| 11 | 11 |
|
| 12 | 12 |
use SL::Common; |
| 13 | 13 |
use SL::DB::Helper::Mappings; |
| 14 |
use SL::DB; |
|
| 14 | 15 |
use SL::DBUtils qw(do_query); |
| 15 | 16 |
use SL::Form; |
| 16 | 17 |
use SL::MoreCommon qw(restore_form save_form); |
| ... | ... | |
| 493 | 494 |
my $locale = $main::locale; |
| 494 | 495 |
|
| 495 | 496 |
if($form->{mark_as_paid}) {
|
| 496 |
my $dbh ||= $form->get_standard_dbh($myconfig); |
|
| 497 |
my $query = qq|UPDATE $db_name SET paid = amount, datepaid = current_date WHERE id = ?|; |
|
| 498 |
do_query($form, $dbh, $query, $form->{id});
|
|
| 499 |
$dbh->commit(); |
|
| 497 |
SL::DB->client->with_transaction(sub {
|
|
| 498 |
my $dbh ||= SL::DB->client->dbh; |
|
| 499 |
my $query = qq|UPDATE $db_name SET paid = amount, datepaid = current_date WHERE id = ?|; |
|
| 500 |
do_query($form, $dbh, $query, $form->{id});
|
|
| 501 |
1; |
|
| 502 |
}) or do { $::form->error(SL::DB->client->error) };
|
|
| 500 | 503 |
$form->redirect($locale->text("Marked as paid"));
|
| 501 | 504 |
|
| 502 | 505 |
} else {
|
Auch abrufbar als: Unified diff
common.pl: single-dbh