Revision 1a54cb45
Von Jan Büren vor 12 Monaten hinzugefügt
| bin/mozilla/sepa.pl | ||
|---|---|---|
|
my $export;
|
||
|
|
||
|
foreach my $id (@ids) {
|
||
|
my $curr_export = SL::SEPA->retrieve_export('id' => $id, 'details' => 1, 'vc' => $vc);
|
||
|
my $curr_export = SL::SEPA->retrieve_export(id => $id, details => 1, vc => $vc);
|
||
|
|
||
|
foreach my $item (@{ $curr_export->{items} }) {
|
||
|
map { $item->{"export_${_}"} = $curr_export->{$_} } grep { !ref $curr_export->{$_} } keys %{ $curr_export };
|
||
Auch abrufbar als: Unified diff
Kosmetik