Revision 1a54cb45
| bin/mozilla/sepa.pl | ||
|---|---|---|
| 358 | 358 |
my $export; |
| 359 | 359 |
|
| 360 | 360 |
foreach my $id (@ids) {
|
| 361 |
my $curr_export = SL::SEPA->retrieve_export('id' => $id, 'details' => 1, 'vc' => $vc);
|
|
| 361 |
my $curr_export = SL::SEPA->retrieve_export(id => $id, details => 1, vc => $vc);
|
|
| 362 | 362 |
|
| 363 | 363 |
foreach my $item (@{ $curr_export->{items} }) {
|
| 364 | 364 |
map { $item->{"export_${_}"} = $curr_export->{$_} } grep { !ref $curr_export->{$_} } keys %{ $curr_export };
|
Auch abrufbar als: Unified diff
Kosmetik