Commit 9dd23030 authored by Stefan Tauner's avatar Stefan Tauner
Browse files

fiji_scripts: fix deletion of FIU elements in fiji_setup.pl

parent f47e41d4
......@@ -105,10 +105,10 @@ sub update {
'-columnspan' => 2,
);
my $fiu_cnt = _fiu_cnt();
my $fiu_cnt = $self->_fiu_cnt();
for (my $i = 0; $i < $fiu_cnt; $i++) {
my $fiu = @{${$self->{'settings'}}->{'FIUs'}}[$i];
_add_fiu($fiu, $i);
$self->_add_fiu($fiu, $i);
}
}
......@@ -239,7 +239,7 @@ sub _fiu_cnt {
sub _add_fiu ($$) {
my($self, $i, $fiu) = @_;
my($self, $fiu, $i) = @_;
if (!defined($i)) {
$i = $self->_fiu_cnt(); # default is to append
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment