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 1;