Revision cc38697a
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 642 | 642 |
|
| 643 | 643 |
map { print "\n$column_data{$_}" } @column_index;
|
| 644 | 644 |
|
| 645 |
print qq| |
|
| 646 |
</tr> |
|
| 647 |
|; |
|
| 648 |
map({ print($cgi->hidden("-name" => "new_$__$i", "-value" => $ref->{$_})); }
|
|
| 649 |
qw(bin listprice inventory_accno income_accno expense_accno unit weight assembly taxaccounts partsgroup |
|
| 650 |
formel logdescription not_discountable part_payment_id partnodes id)); |
|
| 651 |
if ($lizenzen) {
|
|
| 652 |
print qq| |
|
| 653 |
<input name="new_lizenzen_$i" type="hidden" value="$ref->{lizenzen}">
|
|
| 654 |
|; |
|
| 655 |
} |
|
| 645 |
print("</tr>\n");
|
|
| 646 |
|
|
| 647 |
my @new_fields = |
|
| 648 |
qw(bin listprice inventory_accno income_accno expense_accno unit weight |
|
| 649 |
assembly taxaccounts partsgroup formel logdescription not_discountable |
|
| 650 |
part_payment_id partnodes id); |
|
| 651 |
push(@new_fields, "lizenzen") if ($lizenzen); |
|
| 656 | 652 |
|
| 653 |
map({ print($cgi->hidden("-name" => "new_${_}_$i",
|
|
| 654 |
"-value" => $ref->{$_})); } @new_fields);
|
|
| 657 | 655 |
} |
| 658 | 656 |
|
| 659 | 657 |
print qq| |
Auch abrufbar als: Unified diff
Mehr Umformatierungen.