Revision 203d3cee
Von Bernd Bleßmann vor mehr als 4 Jahren hinzugefügt
| bin/mozilla/sepa.pl | ||
|---|---|---|
| 102 | 102 |
my $arap_id = $vc eq 'customer' ? 'ar_id' : 'ap_id'; |
| 103 | 103 |
my $invoices = SL::SEPA->retrieve_open_invoices(vc => $vc); |
| 104 | 104 |
|
| 105 |
# load all open invoices (again), but grep out the ones that were selected with checkboxes beforehand ($_->selected). At this stage we again have all the invoice information, including dropdown with payment_type options |
|
| 106 |
# all the information from retrieve_open_invoices is then ADDED to what was passed via @{ $form->{bank_transfers} }
|
|
| 107 |
# parse amount from the entry in the form, but take skonto_amount from PT again |
|
| 108 |
# the map inserts the values of invoice_map directly into the array of hashes |
|
| 105 |
# Load all open invoices (again), but grep out the ones that were selected with checkboxes beforehand ($_->selected). |
|
| 106 |
# At this stage we again have all the invoice information, including dropdown with payment_type options. |
|
| 107 |
# All the information from retrieve_open_invoices is then ADDED to what was passed via @{ $form->{bank_transfers} }.
|
|
| 108 |
# Parse amount from the entry in the form, but take skonto_amount from PT again. |
|
| 109 |
# The map inserts the values of invoice_map directly into the array of hashes. |
|
| 109 | 110 |
my %selected_ids = map { ($_ => 1) } @{ $form->{ids} || [] };
|
| 110 | 111 |
my %invoices_map = map { $_->{id} => $_ } @{ $invoices };
|
| 111 | 112 |
my @bank_transfers = |
Auch abrufbar als: Unified diff
sepa: Kosmetik: Kommentar neu formatiert.