SL/GenericTranslations.pm

   1 package GenericTranslations;
   2
   3 use SL::DBUtils;
   4 use SL::DB;
   5
   6 use strict;
   7
   8 sub get {
   9   $main::lxdebug->enter_sub();
  10
  11   my $self     = shift;
  12   my %params   = @_;
  13
  14   Common::check_params(\%params, qw(translation_type));
  15
  16   my $myconfig = \%main::myconfig;
  17   my $form     = $main::form;
  18
  19   my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
  20
  21   my $joins    = '';
  22
  23   my @values   = ($params{translation_type});
  24   my @where    = ('gt.translation_type = ?');
  25
  26   if ($params{translation_id}) {
  27     push @values, conv_i($params{translation_id});
  28     push @where,  'gt.translation_id = ?';
  29
  30   } else {
  31     push @where,  'gt.translation_id IS NULL';
  32   }
  33
  34   if ($params{language_id}) {
  35     push @values, conv_i($params{language_id});
  36     push @where,  $params{allow_fallback} ? '(gt.language_id IS NULL) OR (gt.language_id = ?)' : 'gt.language_id = ?';
  37
  38   } else {
  39     push @where,  'gt.language_id IS NULL';
  40   }
  41
  42   my $query           = qq|SELECT gt.translation
  43                            FROM generic_translations gt
  44                            $joins
  45                            WHERE | . join(' AND ', map { "($_)" } @where) . qq|
  46                            ORDER BY gt.language_id ASC|;
  47
  48   my ($translation)   = selectfirst_array_query($form, $dbh, $query, @values);
  49   $translation      ||= $params{default};
  50
  51   $main::lxdebug->leave_sub();
  52
  53   return $translation;
  54 }
  55
  56 sub list {
  57   $main::lxdebug->enter_sub();
  58
  59   my $self     = shift;
  60   my %params   = @_;
  61
  62   my $myconfig = \%main::myconfig;
  63   my $form     = $main::form;
  64
  65   my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
  66
  67   my @values   = ();
  68   my @where    = ();
  69
  70   if ($params{translation_type}) {
  71     push @values, $params{translation_type};
  72     push @where,  'translation_type = ?';
  73   }
  74
  75   if ($params{translation_id}) {
  76     push @values, conv_i($params{translation_id});
  77     push @where,  'translation_id = ?';
  78   }
  79
  80   my $where_s  = scalar(@where) ? 'WHERE ' . join(' AND ', map { "($_)" } @where) : '';
  81
  82   my $query    = qq|SELECT id, language_id, translation_type, translation_id, translation
  83                     FROM generic_translations
  84                     $where_s|;
  85
  86   my $results  = selectall_hashref_query($form, $dbh, $query, @values);
  87
  88   $main::lxdebug->leave_sub();
  89
  90   return $results;
  91 }
  92
  93 sub save {
  94   my ($self, %params) = @_;
  95   $main::lxdebug->enter_sub();
  96
  97   my $rc = SL::DB->client->with_transaction(\&_save, $self, %params);
  98
  99   $::lxdebug->leave_sub;
 100   return $rc;
 101 }
 102
 103 sub _save {
 104   my $self     = shift;
 105   my %params   = @_;
 106
 107   Common::check_params(\%params, qw(translation_type));
 108
 109   my $myconfig = \%main::myconfig;
 110   my $form     = $main::form;
 111
 112   my $dbh      = $params{dbh} || SL::DB->client->dbh;
 113
 114   $params{translation} =~ s/^\s+//;
 115   $params{translation} =~ s/\s+$//;
 116
 117   my @v_insert = (conv_i($params{language_id}), $params{translation_type}, conv_i($params{translation_id}), $params{translation});
 118   my @v_seldel = ($params{translation_type});
 119   my @w_seldel = ('translation_type = ?');
 120
 121   foreach (qw(language_id translation_id)) {
 122     if ($params{$_}) {
 123       push @v_seldel, conv_i($params{$_});
 124       push @w_seldel, "$_ = ?";
 125     } else {
 126       push @w_seldel, "$_ IS NULL";
 127     }
 128   }
 129
 130   my $q_lookup = qq|SELECT id
 131                     FROM generic_translations
 132                     WHERE | . join(' AND ', map { "($_)" } @w_seldel);
 133   my $q_delete = qq|DELETE FROM generic_translations
 134                     WHERE | . join(' AND ', map { "($_)" } @w_seldel);
 135   my $q_update = qq|UPDATE generic_translations
 136                     SET translation = ?
 137                     WHERE id = ?|;
 138   my $q_insert = qq|INSERT INTO generic_translations (language_id, translation_type, translation_id, translation)
 139                     VALUES (?, ?, ?, ?)|;
 140
 141   my ($id)     = selectfirst_array_query($form, $dbh, $q_lookup, @v_seldel);
 142
 143   if ($id && !$params{translation}) {
 144     do_query($form, $dbh, $q_delete, @v_seldel);
 145   } elsif ($id) {
 146     do_query($form, $dbh, $q_update, $params{translation}, $id);
 147   } elsif ($params{translation}) {
 148     do_query($form, $dbh, $q_insert, @v_insert);
 149   }
 150
 151   return 1;
 152 }
 153
 154
 155 1;