Fix für Bug 1081. Bei Buchung einer Einkaufsrechnung geht das Rabatt verloren. 1...
[kivitendo-erp.git] / bin / mozilla / generictranslations.pl
1 use SL::Auth;
2 use SL::Form;
3 use SL::GenericTranslations;
4
5 sub edit_greetings {
6   $lxdebug->enter_sub();
7
8   $auth->assert('config');
9
10   $form->get_lists('languages' => 'LANGUAGES');
11
12   my $translation_list = GenericTranslations->list();
13   my %translations     = ();
14
15   my @types            = qw(male female);
16
17   foreach my $translation (@{ $translation_list }) {
18     $translation->{language_id}                                                          ||= 'default';
19     $translations{$translation->{language_id} . '::' . $translation->{translation_type}}   = $translation;
20   }
21
22   unshift @{ $form->{LANGUAGES} }, { 'id' => 'default', };
23
24   foreach my $language (@{ $form->{LANGUAGES} }) {
25     foreach my $type (@types) {
26       $language->{$type} = { };
27       my $translation    = $translations{"$language->{id}::greetings::${type}"} || { };
28       $language->{$type} = $translation->{translation};
29     }
30   }
31
32   $form->{title} = $locale->text('Edit greetings');
33   $form->header();
34   print $form->parse_html_template('generictranslations/edit_greetings');
35
36   $lxdebug->leave_sub();
37 }
38
39 sub save_greetings {
40   $lxdebug->enter_sub();
41
42   $auth->assert('config');
43
44   $form->get_lists('languages' => 'LANGUAGES');
45
46   unshift @{ $form->{LANGUAGES} }, { };
47
48   my @types  = qw(male female);
49
50   foreach my $language (@{ $form->{LANGUAGES} }) {
51     foreach my $type (@types) {
52       GenericTranslations->save('translation_type' => "greetings::${type}",
53                                 'translation_id'   => undef,
54                                 'language_id'      => $language->{id},
55                                 'translation'      => $form->{"translation__" . ($language->{id} || 'default') . "__${type}"},);
56     }
57   }
58
59   $form->{message} = $locale->text('The greetings have been saved.');
60
61   edit_greetings();
62
63   $lxdebug->leave_sub();
64 }
65
66 1;