use SL::Common;
use SL::DBUtils;
+use strict;
+
sub get_module {
$main::lxdebug->enter_sub();
return ($module, $submodule);
}
+my @dont_save = qw(login password stylesheet action);
+
sub save {
$main::lxdebug->enter_sub();
my ($self, $myconfig, $form, $draft_id, $draft_description) = @_;
- my ($dbh, $sth, $query, %saved, @dont_save, $dumped);
+ my ($dbh, $sth, $query, %saved, $dumped);
$dbh = $form->dbconnect_noauto($myconfig);
do_query($form, $dbh, $query, $draft_id, $module, $submodule);
}
- @dont_save = qw(login password action);
map({ $saved{$_} = $form->{$_};
delete($form->{$_}); } @dont_save);
$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);