Revision 4bd1e2f8
Von Sven Schöling vor etwa 9 Jahren hinzugefügt
| SL/FU.pm | ||
|---|---|---|
| 28 | 28 |
$query = qq|INSERT INTO follow_ups (created_by, done, note_id, follow_up_date, created_for_user, id) |
| 29 | 29 |
VALUES ((SELECT id FROM employee WHERE login = ?), ?, ?, ?, ?, ?)|; |
| 30 | 30 |
|
| 31 |
push @values, $form->{login};
|
|
| 31 |
push @values, $::myconfig{login};
|
|
| 32 | 32 |
|
| 33 | 33 |
} else {
|
| 34 | 34 |
$query = qq|UPDATE follow_ups SET done = ?, note_id = ?, follow_up_date = ?, created_for_user = ? WHERE id = ?|; |
| ... | ... | |
| 119 | 119 |
my $dbh = $form->get_standard_dbh($myconfig); |
| 120 | 120 |
my ($query, @values); |
| 121 | 121 |
|
| 122 |
my ($employee_id) = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $form->{login});
|
|
| 122 |
my ($employee_id) = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $::myconfig{login});
|
|
| 123 | 123 |
$query = qq|SELECT fu.*, n.subject, n.body, n.created_by |
| 124 | 124 |
FROM follow_ups fu |
| 125 | 125 |
LEFT JOIN notes n ON (fu.note_id = n.id) |
| ... | ... | |
| 183 | 183 |
my $dbh = $form->get_standard_dbh($myconfig); |
| 184 | 184 |
my ($query, $where, $where_user); |
| 185 | 185 |
|
| 186 |
my ($employee_id) = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $form->{login});
|
|
| 186 |
my ($employee_id) = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $::myconfig{login});
|
|
| 187 | 187 |
my @values = (); |
| 188 | 188 |
my @values_user = (); |
| 189 | 189 |
|
| ... | ... | |
| 424 | 424 |
|
| 425 | 425 |
my $dbh = $form->get_standard_dbh($myconfig); |
| 426 | 426 |
|
| 427 |
my ($id) = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $form->{login});
|
|
| 427 |
my ($id) = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $::myconfig{login});
|
|
| 428 | 428 |
|
| 429 | 429 |
do_query($form, $dbh, qq|DELETE FROM follow_up_access WHERE what = ?|, $id); |
| 430 | 430 |
|
| ... | ... | |
| 455 | 455 |
|
| 456 | 456 |
my $dbh = $form->get_standard_dbh($myconfig); |
| 457 | 457 |
|
| 458 |
my $sth = prepare_execute_query($form, $dbh, qq|SELECT who FROM follow_up_access WHERE what = (SELECT id FROM employee WHERE login = ?)|, $form->{login});
|
|
| 458 |
my $sth = prepare_execute_query($form, $dbh, qq|SELECT who FROM follow_up_access WHERE what = (SELECT id FROM employee WHERE login = ?)|, $::myconfig{login});
|
|
| 459 | 459 |
my $access = {};
|
| 460 | 460 |
|
| 461 | 461 |
while (my $ref = $sth->fetchrow_hashref()) {
|
Auch abrufbar als: Unified diff
login nicht aus $::form nehmen. Teil 1