projekt kivitendo

        </tr>

";

  $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});

  for $i (1 .. $form->{paidaccounts}) {

    $column_data{"AR_paid_$i"}      =

      qq|<td align=center><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|;

    $column_data{"datepaid_$i"} =

    $column_data{"source_$i"} =

      qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;

    $column_data{"memo_$i"} =

    map { print qq|$column_data{"${_}_$i"}\n| } @column_index;

    print "

        </tr>\n";

  }

  print qq|

    &menubar;

  }

<input type=hidden name=rowcount value=$form->{rowcount}>