Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 94d6b5f9

Von G. Richardson vor mehr als 13 Jahren hinzugefügt

  • ID 94d6b5f998a65c6d1932eb4439097b69801fbc4c
  • Vorgänger 874a3b3d
  • Nachfolger 0a612d2f

Bug 1275: Unbenutzte Lieferadressen lassen sich nicht löschen

Code für Löschen von Lieferadresse und Kontaktperson hatte sich vermischt.

Unterschiede anzeigen:

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