Revision 94d6b5f9
Von G. Richardson vor mehr als 13 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
|
my %myconfig = %main::myconfig;
|
||
|
my $dbh = $form->get_standard_dbh(\%myconfig);
|
||
|
|
||
|
do_query($form, $dbh, qq|UPDATE contacts SET cp_cv_id = NULL WHERE cp_id = ?|, $shipto_id);
|
||
|
do_query($form, $dbh, qq|UPDATE shipto SET trans_id = NULL WHERE shipto_id = ?|, $shipto_id);
|
||
|
|
||
|
$dbh->commit();
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub delete_contact {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $self = shift;
|
||
|
my $cp_id = shift;
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $dbh = $form->get_standard_dbh(\%myconfig);
|
||
|
|
||
|
do_query($form, $dbh, qq|UPDATE contacts SET cp_cv_id = NULL WHERE cp_id = ?|, $cp_id);
|
||
|
|
||
|
$dbh->commit();
|
||
|
|
||
| bin/mozilla/ct.pl | ||
|---|---|---|
|
CT->get_contact(\%myconfig, \%$form);
|
||
|
|
||
|
unless ($form->{cp_used}) {
|
||
|
CT->delete_shipto($form->{cp_id});
|
||
|
CT->delete_contact($form->{cp_id});
|
||
|
@$form{ grep /^cp_/, keys %$form } = undef;
|
||
|
}
|
||
|
|
||
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.