Bugfix 465. Bitte testen.

diff --git a/SL/IC.pm b/SL/IC.pm
index 6942c41c819c1716e691408b6abbc7df90f7abb4..97065043971c6e54e0257d4d6fa7348dcf95cd15 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -1851,8 +1851,11 @@ sub retrieve_accounts {
   $ref = $sth->fetchrow_hashref();
   $sth->finish();
   $dbh->disconnect();
   $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}/) {
 
   $form->{"taxaccounts_$index"} = $ref->{"accno"};
   if ($form->{"taxaccounts"} !~ /$ref->{accno}/) {