Revision 7af52e80
Von Sven Schöling vor etwa 18 Jahren hinzugefügt
bin/mozilla/io.pl | ||
---|---|---|
$form->{"unit_old_$i"} = $form->{"unit_$i"};
|
||
}
|
||
|
||
|
||
|
||
# Die zuletzt ausgewaehlte mit der aktuell ausgewaehlten Einheit
|
||
# vergleichen und bei Unterschied den Preis entsprechend umrechnen.
|
||
$form->{"selected_unit_$i"} = $form->{"unit_$i"} unless ($form->{"selected_unit_$i"});
|
||
... | ... | |
. $form->format_amount(\%myconfig, $form->{"ship_$i"})
|
||
. qq|></td>|;
|
||
|
||
my $is_part = $form->{"inventory_accno_$i"};
|
||
my $is_part = $form->{"inventory_accno_$i"};
|
||
my $is_assembly = $form->{"assembly_$i"};
|
||
my $is_assigned = $form->{"id_$i"};
|
||
my $this_unit = $form->{"unit_$i"};
|
||
if ($form->{"selected_unit_$i"} && $this_unit &&
|
||
... | ... | |
}
|
||
|
||
$column_data{"unit"} = "<td>" .
|
||
AM->unit_select_html($is_part ? $dimension_units :
|
||
AM->unit_select_html($is_part || $is_assembly ? $dimension_units :
|
||
$is_assigned ? $service_units : $all_units,
|
||
"unit_$i", $this_unit,
|
||
$is_assigned ? $form->{"unit_$i"} : undef)
|
Auch abrufbar als: Unified diff
Bugfix: Erzeugnisse muessen ihre Einheiten aus dimensions suchen.