Revision e7367fb5
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2496 | 2496 |
&get_employee($self, $dbh); |
| 2497 | 2497 |
} |
| 2498 | 2498 |
|
| 2499 |
my $query =
|
|
| 2500 |
qq|INSERT INTO history_erp (trans_id, employee_id, addition, what_done, snumbers) | .
|
|
| 2501 |
qq|VALUES (?, ?, ?, ?, ?)|;
|
|
| 2502 |
my @values = (conv_i($self->{id}), conv_i($self->{employee_id}),
|
|
| 2503 |
$self->{addition}, $self->{what_done}, "$self->{snumbers}");
|
|
| 2504 |
do_query($self, $dbh, $query, @values);
|
|
| 2499 |
my $query = |
|
| 2500 |
qq|INSERT INTO history_erp (trans_id, employee_id, addition, what_done, snumbers) | . |
|
| 2501 |
qq|VALUES (?, (SELECT id FROM employee WHERE login = ?), ?, ?, ?)|;
|
|
| 2502 |
my @values = (conv_i($self->{id}), $self->{login},
|
|
| 2503 |
$self->{addition}, $self->{what_done}, "$self->{snumbers}");
|
|
| 2504 |
do_query($self, $dbh, $query, @values); |
|
| 2505 | 2505 |
|
| 2506 | 2506 |
$main::lxdebug->leave_sub(); |
| 2507 | 2507 |
} |
Auch abrufbar als: Unified diff
Bindestriche und ID aus den PopupMenus entfernt und in der FOrm.pm die Speicherung der Historie angepasst, damit nur der aktuell eingeloggte Bearbeiter gespeichert wird und somit
Manipulationen vermieden werden können.