Revision 23551aa6
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1509 | 1509 |
$main::lxdebug->enter_sub(2); |
| 1510 | 1510 |
my ($this, $a, $b, $all_units) = @_; |
| 1511 | 1511 |
|
| 1512 |
if (!$all_units) {
|
|
| 1513 |
$all_units = $this->retrieve_all_units; |
|
| 1514 |
} |
|
| 1515 |
|
|
| 1512 | 1516 |
$main::lxdebug->leave_sub(2) and return 0 unless $a && $b; |
| 1513 | 1517 |
$main::lxdebug->leave_sub(2) and return 0 unless $all_units->{$a} && $all_units->{$b};
|
| 1514 | 1518 |
$main::lxdebug->leave_sub(2) and return 0 unless $all_units->{$a}{base_unit} eq $all_units->{$b}{base_unit};
|
Auch abrufbar als: Unified diff
AM::convert_unit - wenn keine units übergeben, alle laden.