Der benannte Parameter $copy_accnos wird ansonsten nicht verwendet.

diff --git a/SL/IC.pm b/SL/IC.pm
index f5a1db9..ca37bcb 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -1535,7 +1535,7 @@ sub follow_account_chain {
 sub retrieve_accounts {
   $main::lxdebug->enter_sub(2);
 
-  my ($self, $myconfig, $form, $parts_id, $index, $copy_accnos) = @_;
+  my ($self, $myconfig, $form, $parts_id, $index) = @_;
 
   my ($query, $sth, $dbh);