projekt kivitendo

      qq|<td align=center><input name="datepaid_$i" id="datepaid_$i" size=11 title="$myconfig{dateformat}" value="$form->{"datepaid_$i"}" onBlur=\"check_right_date_format(this)\">

         <input type="button" name="datepaid_$i" id="trigger_datepaid_$i" value="?"></td>|;

    $column_data{"source_$i"} =

    $column_data{"memo_$i"} =

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