projekt kivitendo

  _format_number_units

sub _format_number_units {

  my ($amount, $places, $unit_from, $unit_to, %params) = @_;

  my $all_units = $params{all_units} //= SL::DB::Manager::Unit->get_all;

  if (!$unit_from || !$unit_to) {

    return _format_number($amount, $places, %params);

  }

  $amount       *= $unit_from->factor;

  # unline AM::convertible_uits, this one doesn't sort by default

  my @conv_units = rev_nsort_by { $_->factor // 0 } @{ $unit_from->convertible_units($all_units) };

  if (!scalar @conv_units) {

    return _format_number($amount, $places, %params) . " " . $unit_to->name;

  }

  my @values;

  my $num;

  for my $unit (@conv_units) {

    my $last = $unit->name eq $unit_to->name;

    if (!$last) {

      $num     = int($amount / $unit->factor);

      $amount -= $num * $unit->factor;

    }

    if ($last ? $amount : $num) {

      push @values, {

        unit   => $unit->name,

        amount => $last ? $amount / $unit->factor : $num,

        places => $last ? $places : 0

      };

    }

    last if $last;

  }

  if (!@values) {

    push @values, { "unit"   => $unit_to->name,

                    "amount" => 0,

                    "places" => 0 };

  }

  return join " ", map {

    _format_number($_->{amount}, $_->{places}, %params), $_->{unit}

  } @values;

}