Revision ee82a6ce
Von Sven Schöling vor mehr als 16 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 986 | 986 |
$main::lxdebug->leave_sub(); |
| 987 | 987 |
} |
| 988 | 988 |
|
| 989 |
sub delete_shipto {
|
|
| 990 |
$main::lxdebug->enter_sub(); |
|
| 991 |
|
|
| 992 |
my $self = shift; |
|
| 993 |
my $shipto_id = shift; |
|
| 994 |
|
|
| 995 |
my $form = $main::form; |
|
| 996 |
my %myconfig = %main::myconfig; |
|
| 997 |
my $dbh = $form->get_standard_dbh(\%myconfig); |
|
| 998 |
|
|
| 999 |
do_query($form, $dbh, qq|UPDATE shipto SET trans_id = NULL WHERE shipto_id = ?|, $shipto_id); |
|
| 1000 |
|
|
| 1001 |
$dbh->commit(); |
|
| 1002 |
|
|
| 1003 |
$main::lxdebug->leave_sub(); |
|
| 1004 |
} |
|
| 1005 |
|
|
| 989 | 1006 |
1; |
Auch abrufbar als: Unified diff
Und der eigentliche Loeschmechanismus.
Loeschen in diesem Fall heisst den Eintrag verwaisen, d.h. der Eintrag ist noch im System, aber keinem Kunden zugeordnet.