From: Philip Reetz <p.reetz@linet-services.de>
Date: Thu, 26 Jan 2006 10:48:08 +0000 (+0000)
Subject: save_customer und save_vendor hatten die falschen return-Werte
X-Git-Tag: release-2.4.0^2~355
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/89b6350423e0d8f990790cd0f40df2789e9a3cd0?ds=inline;hp=-c

save_customer und save_vendor hatten die falschen return-Werte
---

89b6350423e0d8f990790cd0f40df2789e9a3cd0
diff --git a/SL/CT.pm b/SL/CT.pm
index a7b0a2f06..308a36e46 100644
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -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 {