use List::MoreUtils qw(zip);
use YAML;
-use SL::AM;
-
use strict;
sub save_form {
$main::lxdebug->enter_sub();
my ($a, $a_unit, $b, $b_unit) = @_;
-
+ require SL::AM;
my $units = AM->retrieve_all_units;
if (!$units->{$a_unit} || !$units->{$b_unit} || ($units->{$a_unit}->{base_unit} ne $units->{$b_unit}->{base_unit})) {