Revision 5b0ec556
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
my $self = shift;
|
||
|
my %params = @_;
|
||
|
|
||
|
Common::check_params(\%params, qw(amount part_unit));
|
||
|
|
||
|
my $myconfig = \%main::myconfig;
|
||
|
my $amount = $params{amount};
|
||
|
my $amount = $params{amount} * 1;
|
||
|
my $places = $params{places};
|
||
|
my $part_unit_name = $params{part_unit};
|
||
|
my $amount_unit_name = $params{amount_unit};
|
||
|
my $conv_units = $params{conv_units};
|
||
|
my $max_places = $params{max_places};
|
||
|
|
||
|
if (!$part_unit_name) {
|
||
|
$main::lxdebug->leave_sub();
|
||
|
return '';
|
||
|
}
|
||
|
|
||
|
AM->retrieve_all_units();
|
||
|
my $all_units = $main::all_units;
|
||
|
|
||
Auch abrufbar als: Unified diff
Form::format_amount_units() darf auch ohne die Parameter amount und part_unit aufgerufen werden. Kein amount wird einfach als 0 gewertet, und wenn part_unit fehlt, so wird schlicht ein leerer String zurückgegeben. Macht Ausgaben wie den Lagerinhalt inkl. leerer Lagerplätze aus wh.pl einfacher.