Bug Ware liess sich nicht loeschen -foreign key constraint Error,

[kivitendo-erp.git] / SL / CT.pm

diff --git a/SL/CT.pm b/SL/CT.pm
index 1db023b..ab5d70e 100644 (file)
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -232,7 +232,8 @@ sub save_customer {
       $form->{"cp_${_}"} = $form->{"selected_cp_${_}"}
         if ($form->{"selected_cp_${_}"});
   } qw(title greeting));
-#
+
+  #
   # escape '
   map { $form->{$_} =~ s/\'/\'\'/g }
     qw(customernumber name street zipcode city country homepage contact notes cp_title cp_greeting language pricegroup);
@@ -318,7 +319,7 @@ sub save_customer {
               ustid = '$form->{ustid}',
               username = '$form->{username}',
               salesman_id = '$form->{salesman_id}',
-              user_password = '$form->{user_password}',
+              user_password = | . $dbh->quote($form->{user_password}) . qq|,
               c_vendor_id = '$form->{c_vendor_id}',
               klass = '$form->{klass}'
              WHERE id = $form->{id}|;
@@ -355,9 +356,10 @@ sub save_customer {
   # add shipto
   $form->add_shipto($dbh, $form->{id});
 
-  $dbh->disconnect;
+  $rc = $dbh->disconnect;
 
   $main::lxdebug->leave_sub();
+  return $rc;
 }
 
 sub save_vendor {
@@ -488,9 +490,10 @@ sub save_vendor {
   # add shipto
   $form->add_shipto($dbh, $form->{id});
 
-  $dbh->disconnect;
+  $rc = $dbh->disconnect;
 
   $main::lxdebug->leave_sub();
+  return $rc;
 }
 
 sub delete {