Ansprechpersonen: Feld "Funktion/Position"
[kivitendo-erp.git] / bin / mozilla / generictranslations.pl
1 use SL::Auth;
2 use SL::Form;
3 use SL::GenericTranslations;
4
5 use strict;
6
7 sub edit_greetings {
8   $main::lxdebug->enter_sub();
9
10   $main::auth->assert('config');
11
12   my $form     = $main::form;
13   my $locale   = $main::locale;
14
15   $form->get_lists('languages' => 'LANGUAGES');
16
17   my $translation_list = GenericTranslations->list();
18   my %translations     = ();
19
20   my @types            = qw(male female);
21
22   foreach my $translation (@{ $translation_list }) {
23     $translation->{language_id}                                                          ||= 'default';
24     $translations{$translation->{language_id} . '::' . $translation->{translation_type}}   = $translation;
25   }
26
27   unshift @{ $form->{LANGUAGES} }, { 'id' => 'default', };
28
29   foreach my $language (@{ $form->{LANGUAGES} }) {
30     foreach my $type (@types) {
31       $language->{$type} = { };
32       my $translation    = $translations{"$language->{id}::greetings::${type}"} || { };
33       $language->{$type} = $translation->{translation};
34     }
35   }
36
37   $form->{title} = $locale->text('Edit greetings');
38   $form->header();
39   print $form->parse_html_template('generictranslations/edit_greetings');
40
41   $main::lxdebug->leave_sub();
42 }
43
44 sub save_greetings {
45   $main::lxdebug->enter_sub();
46
47   $main::auth->assert('config');
48
49   my $form     = $main::form;
50   my $locale   = $main::locale;
51
52   $form->get_lists('languages' => 'LANGUAGES');
53
54   unshift @{ $form->{LANGUAGES} }, { };
55
56   my @types  = qw(male female);
57
58   foreach my $language (@{ $form->{LANGUAGES} }) {
59     foreach my $type (@types) {
60       GenericTranslations->save('translation_type' => "greetings::${type}",
61                                 'translation_id'   => undef,
62                                 'language_id'      => $language->{id},
63                                 'translation'      => $form->{"translation__" . ($language->{id} || 'default') . "__${type}"},);
64     }
65   }
66
67   $form->{message} = $locale->text('The greetings have been saved.');
68
69   edit_greetings();
70
71   $main::lxdebug->leave_sub();
72 }
73
74 sub edit_sepa_strings {
75   $main::lxdebug->enter_sub();
76
77   $main::auth->assert('config');
78
79   my $form     = $main::form;
80   my $locale   = $main::locale;
81
82   $form->get_lists('languages' => 'LANGUAGES');
83
84   my $translation_list = GenericTranslations->list(translation_type => 'sepa_remittance_info_pfx');
85   my %translations     = map { ( ($_->{language_id} || 'default') => $_->{translation} ) } @{ $translation_list };
86
87   unshift @{ $form->{LANGUAGES} }, { 'id' => 'default', };
88
89   foreach my $language (@{ $form->{LANGUAGES} }) {
90     $language->{translation} = $translations{$language->{id}};
91   }
92
93   $form->{title} = $locale->text('Edit SEPA strings');
94   $form->header();
95   print $form->parse_html_template('generictranslations/edit_sepa_strings');
96
97   $main::lxdebug->leave_sub();
98 }
99
100 sub save_sepa_strings {
101   $main::lxdebug->enter_sub();
102
103   $main::auth->assert('config');
104
105   my $form     = $main::form;
106   my $locale   = $main::locale;
107
108   $form->get_lists('languages' => 'LANGUAGES');
109
110   unshift @{ $form->{LANGUAGES} }, { };
111
112   foreach my $language (@{ $form->{LANGUAGES} }) {
113     GenericTranslations->save('translation_type' => 'sepa_remittance_info_pfx',
114                               'translation_id'   => undef,
115                               'language_id'      => $language->{id},
116                               'translation'      => $form->{"translation__" . ($language->{id} || 'default')},);
117   }
118
119   $form->{message} = $locale->text('The SEPA strings have been saved.');
120
121   edit_sepa_strings();
122
123   $main::lxdebug->leave_sub();
124 }
125
126 1;