- my $i = 0;
- foreach my $taxaccount (@{ $form->{ACCOUNTS} } ) {
-
- # Fill in the Taxaxxounts as select options
- if ($form->{chart_id} == $taxaccount->{id}) {
- $form->{ACCOUNTS}[$i]{select_taxaccount} .=
- qq|<option value="$taxaccount->{id}" selected="selected">
- $form->{ACCOUNTS}[$i]{_taxaccount}\n|;
- }
- else {
- $form->{ACCOUNTS}[$i]{select_taxaccount} .=
- qq|<option value="$taxaccount->{id}">
- $form->{ACCOUNTS}[$i]{_taxaccount}<!-- hallo-->\n|;
- }
- $i++;
- }
- return;