Revision 88d594e9
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1099 | 1099 |
# Delete all entries in acc_trans from prior payments. |
| 1100 | 1100 |
$self->_delete_payments($form, $dbh); |
| 1101 | 1101 |
|
| 1102 |
my @after_dp; |
|
| 1103 |
push @after_dp, selectall_hashref_query($form, $dbh, qq|SELECT * FROM acc_trans WHERE trans_id = ? ORDER BY oid|, $form->{id});
|
|
| 1104 |
|
|
| 1105 | 1102 |
# Save the new payments the user made before cleaning up $form. |
| 1106 | 1103 |
map { $payments{$_} = $form->{$_} } grep m/^datepaid_\d+$|^memo_\d+$|^source_\d+$|^exchangerate_\d+$|^paid_\d+$|^AR_paid_\d+$|^paidaccounts$/, keys %{ $form };
|
| 1107 | 1104 |
|
Auch abrufbar als: Unified diff
Debug-Code entfernt.