Revision ef255c4e
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
|
|
||
|
map { $form->{$_} =~ s/\"/"/g } qw(invnumber ordnumber quonumber);
|
||
|
|
||
|
my $i = 0;
|
||
|
foreach $ref (@{ $form->{invoice_details} }) {
|
||
|
$i++;
|
||
|
map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};
|
||
Auch abrufbar als: Unified diff
Keine globalen Variablen überschreiben/benutzen.