Revision 39be0a81
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| SL/TODO.pm | ||
|---|---|---|
|
package TODO;
|
||
|
|
||
|
use SL::DBUtils;
|
||
|
use SL::DB;
|
||
|
|
||
|
use strict;
|
||
|
|
||
| ... | ... | |
|
my $myconfig = \%main::myconfig;
|
||
|
my $form = $main::form;
|
||
|
|
||
|
my $dbh = $params{dbh} || $form->get_standard_dbh($myconfig);
|
||
|
|
||
|
my $query = qq|SELECT id FROM employee WHERE login = ?|;
|
||
|
SL::DB->client->with_transaction(sub {
|
||
|
my $dbh = $params{dbh} || SL::DB->client->dbh;
|
||
|
|
||
|
my ($id) = selectfirst_array_query($form, $dbh, $query, $params{login});
|
||
|
my $query = qq|SELECT id FROM employee WHERE login = ?|;
|
||
|
|
||
|
if (!$id) {
|
||
|
$main::lxdebug->leave_sub();
|
||
|
return;
|
||
|
}
|
||
|
my ($id) = selectfirst_array_query($form, $dbh, $query, $params{login});
|
||
|
|
||
|
$query =
|
||
|
qq|SELECT show_after_login
|
||
|
FROM todo_user_config
|
||
|
WHERE employee_id = ?|;
|
||
|
if (!$id) {
|
||
|
$main::lxdebug->leave_sub();
|
||
|
return;
|
||
|
}
|
||
|
|
||
|
if (! selectfirst_hashref_query($form, $dbh, $query, $id)) {
|
||
|
do_query($form, $dbh, qq|INSERT INTO todo_user_config (employee_id) VALUES (?)|, $id);
|
||
|
}
|
||
|
$query =
|
||
|
qq|SELECT show_after_login
|
||
|
FROM todo_user_config
|
||
|
WHERE employee_id = ?|;
|
||
|
|
||
|
$query =
|
||
|
qq|UPDATE todo_user_config SET
|
||
|
show_after_login = ?,
|
||
|
show_follow_ups = ?,
|
||
|
show_follow_ups_login = ?,
|
||
|
show_overdue_sales_quotations = ?,
|
||
|
show_overdue_sales_quotations_login = ?
|
||
|
if (! selectfirst_hashref_query($form, $dbh, $query, $id)) {
|
||
|
do_query($form, $dbh, qq|INSERT INTO todo_user_config (employee_id) VALUES (?)|, $id);
|
||
|
}
|
||
|
|
||
|
WHERE employee_id = ?|;
|
||
|
$query =
|
||
|
qq|UPDATE todo_user_config SET
|
||
|
show_after_login = ?,
|
||
|
show_follow_ups = ?,
|
||
|
show_follow_ups_login = ?,
|
||
|
show_overdue_sales_quotations = ?,
|
||
|
show_overdue_sales_quotations_login = ?
|
||
|
|
||
|
my @values = map { $params{$_} ? 't' : 'f' } qw(show_after_login show_follow_ups show_follow_ups_login show_overdue_sales_quotations show_overdue_sales_quotations_login);
|
||
|
push @values, $id;
|
||
|
WHERE employee_id = ?|;
|
||
|
|
||
|
do_query($form, $dbh, $query, @values);
|
||
|
my @values = map { $params{$_} ? 't' : 'f' } qw(show_after_login show_follow_ups show_follow_ups_login show_overdue_sales_quotations show_overdue_sales_quotations_login);
|
||
|
push @values, $id;
|
||
|
|
||
|
$dbh->commit();
|
||
|
do_query($form, $dbh, $query, @values);
|
||
|
});
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
Auch abrufbar als: Unified diff
TODO: single-dbh