X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/195883fdfd3b10f329036767f027baa6e7c402b9..ea910b8d66ff2add3fab2857ad0bdc74501d6969:/SL/CT.pm

diff --git a/SL/CT.pm b/SL/CT.pm
index 1db023b98..308a36e46 100644
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -318,7 +318,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 +355,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 +489,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 {