Revision 38440832
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/Drafts.pm | ||
|---|---|---|
|
use SL::Common;
|
||
|
use SL::DBUtils;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
sub get_module {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| ... | ... | |
|
return ($module, $submodule);
|
||
|
}
|
||
|
|
||
|
@dont_save = qw(login password stylesheet action);
|
||
|
my @dont_save = qw(login password stylesheet action);
|
||
|
|
||
|
sub save {
|
||
|
$main::lxdebug->enter_sub();
|
||
| ... | ... | |
|
|
||
|
$sth = prepare_execute_query($form, $dbh, $query, $draft_id);
|
||
|
|
||
|
my @values;
|
||
|
if (my $ref = $sth->fetchrow_hashref()) {
|
||
|
@values = ($ref->{form}, $ref->{id}, $ref->{description});
|
||
|
}
|
||
| ... | ... | |
|
qq|LEFT JOIN employee e ON d.employee_id = e.id | .
|
||
|
qq|WHERE (d.module = ?) AND (d.submodule = ?) | .
|
||
|
qq|ORDER BY d.itime|;
|
||
|
my @values = ($module, $submodule);
|
||
|
@values = ($module, $submodule);
|
||
|
|
||
|
$sth = prepare_execute_query($form, $dbh, $query, @values);
|
||
|
|
||
Auch abrufbar als: Unified diff
strictness