Abfangen von doppelten Lieferantenadressen (beim Eintragen)
[kivitendo-erp.git] / SL / Drafts.pm
1 #======================================================================
2 # LX-Office ERP
3 #
4 #======================================================================
5 #
6 # Saving and loading drafts
7 #
8 #======================================================================
9
10 package Drafts;
11
12 use YAML;
13
14 use SL::Common;
15 use SL::DBUtils;
16
17 sub get_module {
18   $main::lxdebug->enter_sub();
19
20   my ($self, $form) = @_;
21
22   my ($module, $submodule);
23
24   $module = $form->{"script"};
25   $module =~ s/\.pl$//;
26   if (grep({ $module eq $_ } qw(is ir ar ap))) {
27     $submodule = "invoice";
28   } else {
29     $submodule = "unknown";
30   }
31
32   $main::lxdebug->leave_sub();
33
34   return ($module, $submodule);
35 }
36
37 sub save {
38   $main::lxdebug->enter_sub();
39
40   my ($self, $myconfig, $form, $draft_id, $draft_description) = @_;
41
42   my ($dbh, $sth, $query, %saved, @dont_save, $dumped);
43
44   $dbh = $form->dbconnect_noauto($myconfig);
45
46   my ($module, $submodule) = $self->get_module($form);
47
48   $query = "SELECT COUNT(*) FROM drafts WHERE id = ?";
49   my ($res) = selectrow_query($form, $dbh, $query, $draft_id);
50   if (!$res) {
51     $draft_id = $module . "-" . $submodule . "-" . Common::unique_id();
52     $query = "INSERT INTO drafts (id, module, submodule) VALUES (?, ?, ?)";
53     do_query($form, $dbh, $query, $draft_id, $module, $submodule);
54   }
55
56   @dont_save = qw(login password path action);
57   map({ $saved{$_} = $form->{$_};
58         delete($form->{$_}); } @dont_save);
59   $dumped = YAML::Dump($form);
60   map({ $form->{$_} = $saved{$_}; } @dont_save);
61
62   $query =
63     qq|UPDATE drafts SET description = ?, form = ?, employee_id = | .
64     qq|  (SELECT id FROM employee WHERE login = ?) | .
65     qq|WHERE id = ?|;
66
67   do_query($form, $dbh, $query, $draft_description, $dumped,
68            $form->{login}, $draft_id);
69
70   $dbh->commit();
71   $dbh->disconnect();
72
73   $form->{draft_id} = $draft_id;
74   $form->{draft_description} = $draft_description;
75
76   $main::lxdebug->leave_sub();
77 }
78
79 sub load {
80   $main::lxdebug->enter_sub();
81
82   my ($self, $myconfig, $form, $draft_id) = @_;
83
84   my ($dbh, $sth, $query, @values);
85
86   $dbh = $form->dbconnect($myconfig);
87
88   $query = qq|SELECT id, description, form FROM drafts WHERE id = ?|;
89
90   $sth = $dbh->prepare($query);
91   $sth->execute($draft_id) || $form->dberror("$query ($draft_id)");
92
93   my @values;
94   if (my $ref = $sth->fetchrow_hashref()) {
95     @values = ($ref->{form}, $ref->{id}, $ref->{description});
96   }
97   $sth->finish();
98
99 #  do_query($form, $dbh, "DELETE FROM drafts WHERE id = ?", $draft_id);
100
101   $dbh->disconnect();
102
103   $main::lxdebug->leave_sub();
104
105   return @values;
106 }
107
108 sub remove {
109   $main::lxdebug->enter_sub();
110
111   my ($self, $myconfig, $form, @draft_ids) = @_;
112
113   return $main::lxdebug->leave_sub() unless (@draft_ids);
114
115   my ($dbh, $sth, $query);
116
117   $dbh = $form->dbconnect($myconfig);
118
119   $query = qq|DELETE FROM drafts WHERE id IN (| .
120     join(", ", map({ "?" } @draft_ids)) . qq|)|;
121   do_query($form, $dbh, $query, @draft_ids);
122
123   $dbh->disconnect();
124
125   $main::lxdebug->leave_sub();
126 }
127
128 sub list {
129   $main::lxdebug->enter_sub();
130
131   my ($self, $myconfig, $form) = @_;
132
133   my ($dbh, $sth, $query, @values);
134
135   $dbh = $form->dbconnect($myconfig);
136
137   my ($module, $submodule) = $self->get_module($form);
138
139   my @list = ();
140   $query =
141     qq|SELECT d.id, d.description, d.itime::timestamp(0) AS itime, | .
142     qq|  e.name AS employee_name | .
143     qq|FROM drafts d | .
144     qq|LEFT JOIN employee e ON d.employee_id = e.id | .
145     qq|WHERE (d.module = ?) AND (d.submodule = ?) | .
146     qq|ORDER BY d.itime|;
147   my @values = ($module, $submodule);
148
149   $sth = $dbh->prepare($query);
150   $sth->execute(@values) ||
151     $form->dberror($query . " (" . join(", ", @values) . ")");
152
153   while (my $ref = $sth->fetchrow_hashref()) {
154     push(@list, $ref);
155   }
156   $sth->finish();
157
158   $dbh->disconnect();
159
160   $main::lxdebug->leave_sub();
161
162   return @list;
163 }
164
165 1;