1 package SL::MoreCommon;
6 @EXPORT = qw(save_form restore_form compare_numbers);
13 $main::lxdebug->enter_sub();
15 my @dont_dump_keys = @_;
16 my %not_dumped_values;
18 foreach my $key (@dont_dump_keys) {
19 $not_dumped_values{$key} = $main::form->{$key};
20 delete $main::form->{$key};
23 my $old_form = YAML::Dump($main::form);
24 $old_form =~ s|!|!:|g;
25 $old_form =~ s|\n|!n|g;
26 $old_form =~ s|\r|!r|g;
28 map { $main::form->{$_} = $not_dumped_values{$_} } keys %not_dumped_values;
30 $main::lxdebug->leave_sub();
36 $main::lxdebug->enter_sub();
38 my ($old_form, $no_delete, @keep_vars) = @_;
40 my $form = $main::form;
41 my %keep_vars_map = map { $_ => 1 } @keep_vars;
43 map { delete $form->{$_} if (!$keep_vars_map{$_}); } keys %{$form} unless ($no_delete);
45 $old_form =~ s|!r|\r|g;
46 $old_form =~ s|!n|\n|g;
47 $old_form =~ s|![!:]|!|g;
49 my $new_form = YAML::Load($old_form);
50 map { $form->{$_} = $new_form->{$_} if (!$keep_vars_map{$_}) } keys %{ $new_form };
52 $main::lxdebug->leave_sub();
56 $main::lxdebug->enter_sub();
63 $main::all_units ||= AM->retrieve_units(\%main::myconfig, $main::form);
64 my $units = $main::all_units;
66 if (!$units->{$a_unit} || !$units->{$b_unit} || ($units->{$a_unit}->{base_unit} ne $units->{$b_unit}->{base_unit})) {
67 $main::lxdebug->leave_sub();
71 $a *= $units->{$a_unit}->{factor};
72 $b *= $units->{$b_unit}->{factor};
74 $main::lxdebug->leave_sub();