Revision 09335d0f
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 647 | 647 |
my @new_fields = |
| 648 | 648 |
qw(bin listprice inventory_accno income_accno expense_accno unit weight |
| 649 | 649 |
assembly taxaccounts partsgroup formel logdescription not_discountable |
| 650 |
part_payment_id partnodes id);
|
|
| 650 |
part_payment_id partnotes id);
|
|
| 651 | 651 |
push(@new_fields, "lizenzen") if ($lizenzen); |
| 652 | 652 |
|
| 653 |
map({ print($cgi->hidden("-name" => "new_${_}_$i",
|
|
| 654 |
"-value" => $ref->{$_})); } @new_fields);
|
|
| 653 |
print join "\n", map { $cgi->hidden("-name" => "new_${_}_$i", "-value" => $ref->{$_}) } @new_fields;
|
|
| 654 |
print "\n";
|
|
| 655 | 655 |
} |
| 656 | 656 |
|
| 657 | 657 |
print qq| |
Auch abrufbar als: Unified diff
Schreibfehler in Variable.