Revision 57fae76e
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
|
\%myconfig, $form->{currency}, $form->{transdate}, $buysell
|
||
|
)));
|
||
|
|
||
|
for $i (1 .. $form->{rowcount}) {
|
||
|
map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
|
||
|
$form->{"${_}_${i}"})
|
||
|
if ($form->{"${_}_${i}"}) }
|
||
|
qw(ship qty sellprice listprice basefactor));
|
||
|
}
|
||
|
|
||
|
&prepare_order;
|
||
|
&display_form;
|
||
|
|
||
| ... | ... | |
|
\%myconfig, $form->{currency}, $form->{transdate}, $buysell
|
||
|
)));
|
||
|
|
||
|
for $i (1 .. $form->{rowcount}) {
|
||
|
map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
|
||
|
$form->{"${_}_${i}"})
|
||
|
if ($form->{"${_}_${i}"}) }
|
||
|
qw(ship qty sellprice listprice basefactor));
|
||
|
}
|
||
|
|
||
|
&prepare_order;
|
||
|
&display_form;
|
||
|
|
||
Auch abrufbar als: Unified diff
Umwandeln in Angebot und Auftrag: prepare_order erwartet, dass die Zahlen bereits geparst sind.