Pflichtenheftaufträge: Pauschalpos. in Ang./Auftr. erstellen können
[kivitendo-erp.git] / 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;