Verhindern, dass Lieferadressen bei Lieferanten gelöscht werden, wenn der Lieferant...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 26 Feb 2008 15:54:07 +0000 (15:54 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 26 Feb 2008 15:54:07 +0000 (15:54 +0000)
SL/CT.pm

index 96b6b9c..459a457 100644 (file)
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -470,11 +470,7 @@ sub save_vendor {
 
   my $query;
 
-  if ( $form->{id} ) {
-    $query = qq|DELETE FROM shipto WHERE (trans_id = ?) AND (module = 'CT')|;
-    do_query($form, $dbh, $query, $form->{id});
-
-  } else {
+  if (!$form->{id}) {
     $query = qq|SELECT nextval('id')|;
     ($form->{id}) = selectrow_query($form, $dbh, $query);