Revision 1b95831a
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 470 | 470 |
|
| 471 | 471 |
my $query; |
| 472 | 472 |
|
| 473 |
if ( $form->{id} ) {
|
|
| 474 |
$query = qq|DELETE FROM shipto WHERE (trans_id = ?) AND (module = 'CT')|; |
|
| 475 |
do_query($form, $dbh, $query, $form->{id});
|
|
| 476 |
|
|
| 477 |
} else {
|
|
| 473 |
if (!$form->{id}) {
|
|
| 478 | 474 |
$query = qq|SELECT nextval('id')|;
|
| 479 | 475 |
($form->{id}) = selectrow_query($form, $dbh, $query);
|
| 480 | 476 |
|
Auch abrufbar als: Unified diff
Verhindern, dass Lieferadressen bei Lieferanten gelöscht werden, wenn der Lieferant gespeichert wird. Ansonsten gehen bei jedem Speichern alle Lieferadressen verloren.