Revision 90daea72
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1515 | 1515 |
|
| 1516 | 1516 |
$form->{businessnumber} = $businessnumber;
|
| 1517 | 1517 |
|
| 1518 |
my $myconfig = new User($form->{login});
|
|
| 1518 |
$myconfig = new User($form->{login});
|
|
| 1519 | 1519 |
|
| 1520 | 1520 |
foreach my $item (keys %$form) {
|
| 1521 | 1521 |
$myconfig->{$item} = $form->{$item};
|
| ... | ... | |
| 1935 | 1935 |
$main::lxdebug->enter_sub(2); |
| 1936 | 1936 |
($this, $a, $b, $all_units) = @_; |
| 1937 | 1937 |
|
| 1938 |
$main::lxdebug->leave_sub(2) and return 0 unless $a && $b; |
|
| 1938 | 1939 |
$main::lxdebug->leave_sub(2) and return 0 unless $all_units->{$a} && $all_units->{$b};
|
| 1939 | 1940 |
$main::lxdebug->leave_sub(2) and return 0 unless $all_units->{$a}{base_unit} eq $all_units->{$b}{base_unit};
|
| 1940 |
$main::lxdebug->leave_sub(2) and return $all_units->{$a}{factor} / $all_units->{$b}{factor};
|
|
| 1941 |
$main::lxdebug->leave_sub(2) and return $all_units->{$a}{factor} / $all_units->{$b}{factor};
|
|
| 1941 | 1942 |
} |
| 1942 | 1943 |
|
| 1943 | 1944 |
sub unit_select_data {
|
Auch abrufbar als: Unified diff
strict Sanity
Conflicts: