Revision eeadb745
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
| SL/MoreCommon.pm | ||
|---|---|---|
| 9 | 9 |
use List::MoreUtils qw(zip); |
| 10 | 10 |
use YAML; |
| 11 | 11 |
|
| 12 |
use SL::AM; |
|
| 13 |
|
|
| 14 | 12 |
use strict; |
| 15 | 13 |
|
| 16 | 14 |
sub save_form {
|
| ... | ... | |
| 60 | 58 |
$main::lxdebug->enter_sub(); |
| 61 | 59 |
|
| 62 | 60 |
my ($a, $a_unit, $b, $b_unit) = @_; |
| 63 |
|
|
| 61 |
require SL::AM; |
|
| 64 | 62 |
my $units = AM->retrieve_all_units; |
| 65 | 63 |
|
| 66 | 64 |
if (!$units->{$a_unit} || !$units->{$b_unit} || ($units->{$a_unit}->{base_unit} ne $units->{$b_unit}->{base_unit})) {
|
Auch abrufbar als: Unified diff
Zirkuläres Include zwischen SL::AM und SL::MoreCommon auflösen