Revision 6b23fb21
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 578 | 578 |
foreach my $oe_id (keys %ship) {
|
| 579 | 579 |
do_query($form, $dbh,"UPDATE oe SET delivered = ".($ship{$oe_id}->{delivered}?"TRUE":"FALSE")." WHERE id = ?", $oe_id);
|
| 580 | 580 |
} |
| 581 |
}); |
|
| 581 |
1; |
|
| 582 |
}) or do { die SL::DB->client->error };
|
|
| 582 | 583 |
|
| 583 | 584 |
$main::lxdebug->leave_sub(); |
| 584 | 585 |
} |
| ... | ... | |
| 605 | 606 |
my $query = qq|UPDATE delivery_orders SET closed = TRUE WHERE id IN (| . join(', ', ('?') x scalar(@{ $params{ids} })) . qq|)|;
|
| 606 | 607 |
|
| 607 | 608 |
do_query($form, $dbh, $query, map { conv_i($_) } @{ $params{ids} });
|
| 608 |
}); |
|
| 609 |
1; |
|
| 610 |
}) or die { SL::DB->client->error };
|
|
| 609 | 611 |
|
| 610 | 612 |
$form->new_lastmtime('delivery_orders');
|
| 611 | 613 |
|
Auch abrufbar als: Unified diff
single-dbh: Fehler in Transaktionen immer weiterwerfen