map { $form->{$_} = $new_form->{$_} if (!$keep_vars_map{$_}) } keys %{ $new_form };
$main::lxdebug->leave_sub();
map { $form->{$_} = $new_form->{$_} if (!$keep_vars_map{$_}) } keys %{ $new_form };
$main::lxdebug->leave_sub();
$main::lxdebug->enter_sub();
my ($a, $a_unit, $b, $b_unit) = @_;
$main::lxdebug->enter_sub();
my ($a, $a_unit, $b, $b_unit) = @_;
my $units = AM->retrieve_all_units;
if (!$units->{$a_unit} || !$units->{$b_unit} || ($units->{$a_unit}->{base_unit} ne $units->{$b_unit}->{base_unit})) {
my $units = AM->retrieve_all_units;
if (!$units->{$a_unit} || !$units->{$b_unit} || ($units->{$a_unit}->{base_unit} ne $units->{$b_unit}->{base_unit})) {
Most of them are either obvious or too obscure to care about unless you really have to.
The exceptions are documented here.
Most of them are either obvious or too obscure to care about unless you really have to.
The exceptions are documented here.
=item restore_form
A lot of the old sql-ledger routines are strictly procedural. They search for params in the $form object, do stuff with it, and return a status code.
=item restore_form
A lot of the old sql-ledger routines are strictly procedural. They search for params in the $form object, do stuff with it, and return a status code.