X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d3cca7f3ea9fb5e412e174a25964bbe76685ba1b..c2666ce5e39d304257f21983e035628e03d9cd17:/SL/CT.pm

diff --git a/SL/CT.pm b/SL/CT.pm
index a7b0a2f06..ab5d70ef4 100644
--- 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 = | . $dbh->quote($form->{user_password}) .qq|,
+              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 {