projekt kivitendo

sub edit_sepa_strings {

  $main::lxdebug->enter_sub();

  $main::auth->assert('config');

  my $form     = $main::form;

  my $locale   = $main::locale;

  $form->get_lists('languages' => 'LANGUAGES');

  my $translation_list = GenericTranslations->list(translation_type => 'sepa_remittance_info_pfx');

  my %translations     = map { ( ($_->{language_id} || 'default') => $_->{translation} ) } @{ $translation_list };

  unshift @{ $form->{LANGUAGES} }, { 'id' => 'default', };

  foreach my $language (@{ $form->{LANGUAGES} }) {

    $language->{translation} = $translations{$language->{id}};

  }

  $form->{title} = $locale->text('Edit SEPA strings');

  $form->header();

  print $form->parse_html_template('generictranslations/edit_sepa_strings');

  $main::lxdebug->leave_sub();

}

sub save_sepa_strings {

  $main::lxdebug->enter_sub();

  $main::auth->assert('config');

  my $form     = $main::form;

  my $locale   = $main::locale;

  $form->get_lists('languages' => 'LANGUAGES');

  unshift @{ $form->{LANGUAGES} }, { };

  foreach my $language (@{ $form->{LANGUAGES} }) {

    GenericTranslations->save('translation_type' => 'sepa_remittance_info_pfx',

                              'translation_id'   => undef,

                              'language_id'      => $language->{id},

                              'translation'      => $form->{"translation__" . ($language->{id} || 'default')},);

  }

  $form->{message} = $locale->text('The SEPA strings have been saved.');

  edit_sepa_strings();

  $main::lxdebug->leave_sub();

}