SL/GenericTranslations.pm

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