Revision 97e289a3
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 427 | 427 |
|
| 428 | 428 |
map { print "\n$column_data{$_}" } @column_index;
|
| 429 | 429 |
|
| 430 |
print qq| |
|
| 431 |
</tr> |
|
| 432 |
|; |
|
| 433 |
map({ print($cgi->hidden("-name" => $_, "-value" => $form->{$_})); }
|
|
| 434 |
("orderitems_id_$i", "bo_$i", "pricegroup_old_$i", "price_old_$i", "selected_unit_$i", "id_$i", "inventory_accno_$i", "bin_$i",
|
|
| 435 |
"partsgroup_$i", "partnotes_$i", "income_accno_$i", "expense_accno_$i", "listprice_$i", "assembly_$i", "taxaccounts_$i", |
|
| 436 |
"ordnumber_$i", "transdate_$i", "cusordnumber_$i", "longdescription_$i", "basefactor_$i")); |
|
| 437 |
print qq| |
|
| 438 |
<input type="hidden" name="price_new_$i" value="| |
|
| 439 |
. $form->format_amount(\%myconfig, $form->{"price_new_$i"}) . qq|">
|
|
| 440 |
|; |
|
| 430 |
print("</tr>\n" .
|
|
| 431 |
$cgi->hidden("-name" => "unit_old_$i",
|
|
| 432 |
"-value" => $form->{"selected_unit_$i"})
|
|
| 433 |
. "\n" . |
|
| 434 |
$cgi->hidden("-name" => "price_new_$i",
|
|
| 435 |
"-value" => $form->format_amount(\%myconfig, $form->{"price_new_$i"}))
|
|
| 436 |
. "\n"); |
|
| 437 |
map({ print($cgi->hidden("-name" => $_, "-value" => $form->{$_}) . "\n"); }
|
|
| 438 |
("orderitems_id_$i", "bo_$i", "pricegroup_old_$i", "price_old_$i",
|
|
| 439 |
"id_$i", "inventory_accno_$i", "bin_$i", "partsgroup_$i", "partnotes_$i", |
|
| 440 |
"income_accno_$i", "expense_accno_$i", "listprice_$i", "assembly_$i", |
|
| 441 |
"taxaccounts_$i", "ordnumber_$i", "transdate_$i", "cusordnumber_$i", |
|
| 442 |
"longdescription_$i", "basefactor_$i")); |
|
| 441 | 443 |
|
| 442 | 444 |
######################################## |
| 443 | 445 |
# Eintrag fuer Version 2.2.0 geaendert # |
Auch abrufbar als: Unified diff
Bessere Einrückung. Kleinen Fehler beseitigt, der letztens durch Umstellung auf $cgi->hidden() reingekommen ist (selected_unit_* muss als unit_old_* übergeben werden).