Revision 94d6b5f9
Von G. Richardson vor mehr als 13 Jahren hinzugefügt
SL/CT.pm | ||
---|---|---|
1045 | 1045 |
my %myconfig = %main::myconfig; |
1046 | 1046 |
my $dbh = $form->get_standard_dbh(\%myconfig); |
1047 | 1047 |
|
1048 |
do_query($form, $dbh, qq|UPDATE contacts SET cp_cv_id = NULL WHERE cp_id = ?|, $shipto_id); |
|
1048 |
do_query($form, $dbh, qq|UPDATE shipto SET trans_id = NULL WHERE shipto_id = ?|, $shipto_id); |
|
1049 |
|
|
1050 |
$dbh->commit(); |
|
1051 |
|
|
1052 |
$main::lxdebug->leave_sub(); |
|
1053 |
} |
|
1054 |
|
|
1055 |
sub delete_contact { |
|
1056 |
$main::lxdebug->enter_sub(); |
|
1057 |
|
|
1058 |
my $self = shift; |
|
1059 |
my $cp_id = shift; |
|
1060 |
|
|
1061 |
my $form = $main::form; |
|
1062 |
my %myconfig = %main::myconfig; |
|
1063 |
my $dbh = $form->get_standard_dbh(\%myconfig); |
|
1064 |
|
|
1065 |
do_query($form, $dbh, qq|UPDATE contacts SET cp_cv_id = NULL WHERE cp_id = ?|, $cp_id); |
|
1049 | 1066 |
|
1050 | 1067 |
$dbh->commit(); |
1051 | 1068 |
|
Auch abrufbar als: Unified diff
Bug 1275: Unbenutzte Lieferadressen lassen sich nicht löschen
Code für Löschen von Lieferadresse und Kontaktperson hatte sich vermischt.