if innerhalb von foreach schlägt fehl, wenn die Variable im neuen TEMPLATE_ARRAY Format abgelegt ist.
if muss also auch dort suchen.
Fix für Bug 992.
$sum += $form->parse_amount($self->{"myconfig"},
$form->{"linetotal"}->[$i]);
}
$sum += $form->parse_amount($self->{"myconfig"},
$form->{"linetotal"}->[$i]);
}
$form->{"cumulatelinetotal"}[$i] = $form->format_amount($self->{"myconfig"}, $sum, 2);
$form->{"cumulatelinetotal"}[$i] = $form->format_amount($self->{"myconfig"}, $sum, 2);
my $new_text = $self->parse_block($text, (@indices, $i));
return undef unless (defined($new_text));
$new_contents .= $start_tag . $new_text . $end_tag;
my $new_text = $self->parse_block($text, (@indices, $i));
return undef unless (defined($new_text));
$new_contents .= $start_tag . $new_text . $end_tag;
- my $value = $self->{"form"}->{$var};
+ my $form = $self->{form};
+ $form = $form->{TEMPLATE_ARRAYS} if @indices
+ && ref $form->{TEMPLATE_ARRAYS} eq 'HASH'
+ && ref $form->{TEMPLATE_ARRAYS}->{$var} eq 'ARRAY';
+ my $value = $form->{$var};
for (my $i = 0; $i < scalar(@indices); $i++) {
last unless (ref($value) eq "ARRAY");
$value = $value->[$indices[$i]];
for (my $i = 0; $i < scalar(@indices); $i++) {
last unless (ref($value) eq "ARRAY");
$value = $value->[$indices[$i]];
####
##########################################################
####
##########################################################