Revision 1f42dfbe
Von Bernd Blessmann vor etwa 13 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 250 | 250 |
# add paid transactions |
| 251 | 251 |
for my $i (1 .. $form->{paidaccounts}) {
|
| 252 | 252 |
|
| 253 |
if ($form->{"acc_trans_id_$i"} && $payments_only && ($::lx_office_conf{features}->{payments_changeable} == 0)) {
|
|
| 253 |
if ($form->{"acc_trans_id_$i"} && $payments_only && ($::lx_office_conf{features}->{payments_changeable} == 0)) {
|
|
| 254 | 254 |
next; |
| 255 | 255 |
} |
| 256 | 256 |
|
| bin/mozilla/ap.pl | ||
|---|---|---|
| 715 | 715 |
$exchangerate = |
| 716 | 716 |
qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|;
|
| 717 | 717 |
} else {
|
| 718 |
$exchangerate = qq|$form->{"exchangerate_$i"}|.
|
|
| 718 |
$exchangerate = |
|
| 719 | 719 |
qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|;
|
| 720 | 720 |
} |
| 721 | 721 |
} |
| ... | ... | |
| 781 | 781 |
qq|<input type=hidden name="paid_project_id_$i" value=$form->{"paid_project_id_$i"}>|;
|
| 782 | 782 |
} |
| 783 | 783 |
|
| 784 |
$column_data{"paid_$i"} = $paid;
|
|
| 785 |
$column_data{"AP_paid_$i"} = $AP_paid;
|
|
| 786 |
$column_data{"exchangerate_$i"} = qq|<td align=center>$exchangerate</td>|;
|
|
| 787 |
$column_data{"datepaid_$i"} = $datepaid;
|
|
| 788 |
$column_data{"source_$i"} = $source;
|
|
| 789 |
$column_data{"memo_$i"} = $memo;
|
|
| 784 |
$column_data{"paid_$i"} = $paid;
|
|
| 785 |
$column_data{"AP_paid_$i"} = $AP_paid;
|
|
| 786 |
$column_data{"exchangerate_$i"} = qq|<td align=center>$exchangerate</td>|;
|
|
| 787 |
$column_data{"datepaid_$i"} = $datepaid;
|
|
| 788 |
$column_data{"source_$i"} = $source;
|
|
| 789 |
$column_data{"memo_$i"} = $memo;
|
|
| 790 | 790 |
$column_data{"paid_project_id_$i"} = $paid_project_id;
|
| 791 | 791 |
|
| 792 | 792 |
map { print qq|$column_data{"${_}_$i"}\n| } @column_index;
|
Auch abrufbar als: Unified diff
Kosmetik