our @EXPORT = qw(save_form restore_form compare_numbers cross);
our @EXPORT_OK = qw(ary_union ary_intersect ary_diff listify ary_to_hash uri_encode uri_decode);
+use Encode ();
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})) {