X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fio.pl;h=adaa39946c9362ab4569dbfdc8b884b6ea6c31c5;hb=a4551dbafb54620a87faedac6b0970ca9cb78979;hp=6a0d2fc403a0ef94d01520f8361c5c4a17dd3767;hpb=ad2e3220c7da79f7849f6931ed6cdb6e3f497feb;p=kivitendo-erp.git

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 6a0d2fc40..adaa39946 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1977,11 +1977,7 @@ sub relink_accounts {
   }
   $form->{"taxaccounts"} = "";
 
-  for (my $i = 1; $i <= $form->{"rowcount"}; $i++) {
-    if ($form->{"id_$i"}) {
-      IC->retrieve_accounts(\%myconfig, $form, $form->{"id_$i"}, $i, 1);
-    }
-  }
+  IC->retrieve_accounts(\%myconfig, $form, map { $_ => $form->{"id_$_"} } 1 .. $form->{rowcount});
 
   $main::lxdebug->leave_sub();
 }