Changelog: Reverse Charge für einige Steuerschlüssel
[kivitendo-erp.git] / 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;