3 use SL::GenericTranslations;
4 use SL::Locale::String qw(t8);
9 $main::lxdebug->enter_sub();
11 $main::auth->assert('config');
13 my $form = $main::form;
14 my $locale = $main::locale;
16 $form->get_lists('languages' => 'LANGUAGES');
18 my $translation_list = GenericTranslations->list();
19 my %translations = ();
21 my @types = qw(male female);
23 foreach my $translation (@{ $translation_list }) {
24 $translation->{language_id} ||= 'default';
25 $translations{$translation->{language_id} . '::' . $translation->{translation_type}} = $translation;
28 unshift @{ $form->{LANGUAGES} }, { 'id' => 'default', };
30 foreach my $language (@{ $form->{LANGUAGES} }) {
31 foreach my $type (@types) {
32 $language->{$type} = { };
33 my $translation = $translations{"$language->{id}::greetings::${type}"} || { };
34 $language->{$type} = $translation->{translation};
38 setup_generictranslations_edit_greetings_action_bar();
40 $form->{title} = $locale->text('Edit greetings');
42 print $form->parse_html_template('generictranslations/edit_greetings');
44 $main::lxdebug->leave_sub();
48 $main::lxdebug->enter_sub();
50 $main::auth->assert('config');
52 my $form = $main::form;
53 my $locale = $main::locale;
55 $form->get_lists('languages' => 'LANGUAGES');
57 unshift @{ $form->{LANGUAGES} }, { };
59 my @types = qw(male female);
61 foreach my $language (@{ $form->{LANGUAGES} }) {
62 foreach my $type (@types) {
63 GenericTranslations->save('translation_type' => "greetings::${type}",
64 'translation_id' => undef,
65 'language_id' => $language->{id},
66 'translation' => $form->{"translation__" . ($language->{id} || 'default') . "__${type}"},);
70 $form->{message} = $locale->text('The greetings have been saved.');
74 $main::lxdebug->leave_sub();
77 sub edit_sepa_strings {
78 $main::lxdebug->enter_sub();
80 $main::auth->assert('config');
82 my $form = $main::form;
83 my $locale = $main::locale;
85 $form->get_lists('languages' => 'LANGUAGES');
87 my $translation_list = GenericTranslations->list(translation_type => 'sepa_remittance_info_pfx');
88 my %translations = map { ( ($_->{language_id} || 'default') => $_->{translation} ) } @{ $translation_list };
90 my $translation_list_vc = GenericTranslations->list(translation_type => 'sepa_remittance_vc_no_pfx');
91 my %translations_vc = map { ( ($_->{language_id} || 'default') => $_->{translation} ) } @{ $translation_list_vc };
93 unshift @{ $form->{LANGUAGES} }, { 'id' => 'default', };
95 foreach my $language (@{ $form->{LANGUAGES} }) {
96 $language->{translation} = $translations{$language->{id}};
97 $language->{translation_vc} = $translations_vc{$language->{id}};
100 $form->{title} = $locale->text('Edit SEPA strings');
102 print $form->parse_html_template('generictranslations/edit_sepa_strings');
104 $main::lxdebug->leave_sub();
107 sub save_sepa_strings {
108 $main::lxdebug->enter_sub();
110 $main::auth->assert('config');
112 my $form = $main::form;
113 my $locale = $main::locale;
115 $form->get_lists('languages' => 'LANGUAGES');
117 unshift @{ $form->{LANGUAGES} }, { };
119 foreach my $language (@{ $form->{LANGUAGES} }) {
120 GenericTranslations->save('translation_type' => 'sepa_remittance_info_pfx',
121 'translation_id' => undef,
122 'language_id' => $language->{id},
123 'translation' => $form->{"translation__" . ($language->{id} || 'default')},);
124 GenericTranslations->save('translation_type' => 'sepa_remittance_vc_no_pfx',
125 'translation_id' => undef,
126 'language_id' => $language->{id},
127 'translation' => $form->{"translation__" . ($language->{id} || 'default') . "__vc" },);
130 $form->{message} = $locale->text('The SEPA strings have been saved.');
134 $main::lxdebug->leave_sub();
137 sub setup_generictranslations_edit_greetings_action_bar {
140 for my $bar ($::request->layout->get('actionbar')) {
144 submit => [ '#form', { action => "save_greetings" } ],
145 accesskey => 'enter',