From: Udo Spallek <info@wissensvermittlung.com>
Date: Thu, 28 Dec 2006 19:11:02 +0000 (+0000)
Subject: Bugfix 465. Bitte testen.
X-Git-Tag: release-2.4.1~1^2~110
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/079b834a6728d41dd2c29acc6dbfb066a4707637?hp=04f4f1cf1d2b805cda8a24f8b0f7a56513bdecb0

Bugfix 465. Bitte testen.
---

diff --git a/SL/IC.pm b/SL/IC.pm
index 6942c41c8..970650439 100644
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -1851,8 +1851,11 @@ sub retrieve_accounts {
   $ref = $sth->fetchrow_hashref();
   $sth->finish();
   $dbh->disconnect();
-
-  return $main::lxdebug->leave_sub() unless ($ref);
+  
+  unless ($ref) {
+    $main::lxdebug->leave_sub();
+    return;
+  }
 
   $form->{"taxaccounts_$index"} = $ref->{"accno"};
   if ($form->{"taxaccounts"} !~ /$ref->{accno}/) {