Revision 38440832
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/Drafts.pm | ||
|---|---|---|
| 14 | 14 |
use SL::Common; |
| 15 | 15 |
use SL::DBUtils; |
| 16 | 16 |
|
| 17 |
use strict; |
|
| 18 |
|
|
| 17 | 19 |
sub get_module {
|
| 18 | 20 |
$main::lxdebug->enter_sub(); |
| 19 | 21 |
|
| ... | ... | |
| 34 | 36 |
return ($module, $submodule); |
| 35 | 37 |
} |
| 36 | 38 |
|
| 37 |
@dont_save = qw(login password stylesheet action); |
|
| 39 |
my @dont_save = qw(login password stylesheet action);
|
|
| 38 | 40 |
|
| 39 | 41 |
sub save {
|
| 40 | 42 |
$main::lxdebug->enter_sub(); |
| ... | ... | |
| 91 | 93 |
|
| 92 | 94 |
$sth = prepare_execute_query($form, $dbh, $query, $draft_id); |
| 93 | 95 |
|
| 94 |
my @values; |
|
| 95 | 96 |
if (my $ref = $sth->fetchrow_hashref()) {
|
| 96 | 97 |
@values = ($ref->{form}, $ref->{id}, $ref->{description});
|
| 97 | 98 |
} |
| ... | ... | |
| 142 | 143 |
qq|LEFT JOIN employee e ON d.employee_id = e.id | . |
| 143 | 144 |
qq|WHERE (d.module = ?) AND (d.submodule = ?) | . |
| 144 | 145 |
qq|ORDER BY d.itime|; |
| 145 |
my @values = ($module, $submodule);
|
|
| 146 |
@values = ($module, $submodule); |
|
| 146 | 147 |
|
| 147 | 148 |
$sth = prepare_execute_query($form, $dbh, $query, @values); |
| 148 | 149 |
|
Auch abrufbar als: Unified diff
strictness