projekt kivitendo

sub edit_defaults {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  # get defaults for account numbers and last numbers

  AM->defaultaccounts(\%myconfig, \%$form);

  $form->{ALL_UNITS} = AM->convertible_units(AM->retrieve_all_units(), 'g');

  map { $form->{"defaults_${_}"} = $form->{defaults}->{$_} } keys %{ $form->{defaults} };

  # default language

  my $all_languages = SL::DB::Manager::Language->get_all;

# cash = IST-Versteuerung, accrual = SOLL-Versteuerung

  foreach my $key (keys %{ $form->{IC} }) {

    foreach my $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',

                                   { ALL_LANGUAGES => $all_languages, });

  $main::lxdebug->leave_sub();

}

sub save_defaults {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my $locale   = $main::locale;

  AM->save_defaults();

  $form->redirect($locale->text('Defaults saved.'));

  $main::lxdebug->leave_sub();

}