+sub edit_defaults {
+ $lxdebug->enter_sub();
+
+ # get defaults for account numbers and last numbers
+ AM->defaultaccounts(\%myconfig, \%$form);
+
+ map { $form->{"defaults_${_}"} = $form->{defaults}->{$_} } keys %{ $form->{defaults} };
+
+ foreach $key (keys %{ $form->{IC} }) {
+ foreach $accno (sort keys %{ $form->{IC}->{$key} }) {
+ my $array = "ACCNOS_" . uc($key);
+ $form->{$array} ||= [];
+
+ my $value = "${accno}--" . $form->{IC}->{$key}->{$accno}->{description};
+ push @{ $form->{$array} }, {
+ 'name' => $value,
+ 'value' => $value,
+ 'selected' => $form->{IC}->{$key}->{$accno}->{id} == $form->{defaults}->{$key},
+ };
+ }
+ }
+
+ $form->{title} = $locale->text('Ranges of numbers and default accounts');
+
+ $form->header();
+ print $form->parse_html_template('am/edit_defaults');
+
+ $lxdebug->leave_sub();
+}
+
+sub save_defaults {
+ $lxdebug->enter_sub();
+
+ AM->save_defaults();
+
+ $form->redirect($locale->text('Defaults saved.'));
+
+ $lxdebug->leave_sub();
+}
+