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;