use SL::Common;
use SL::DBUtils;
+use strict;
+
sub save {
$main::lxdebug->enter_sub();
($params{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('note_id')|);
$query = qq|INSERT INTO notes (created_by, trans_id, trans_module, subject, body, id)
VALUES ((SELECT id FROM employee WHERE login = ?), ?, ?, ?, ?, ?)|;
- push @values, $form->{login}, conv_i($params{trans_id}), $params{trans_module};
+ push @values, $::myconfig{login}, conv_i($params{trans_id}), $params{trans_module};
} else {
$query = qq|UPDATE notes SET subject = ?, body = ? WHERE id = ?|;
my $dbh = $form->get_standard_dbh($myconfig);
- my $ref = selectfirst_hashref_query($form, $dbh, qq|SELECT * FROM notes WHERE id = ?|, conv_i($param{id}));
+ my $ref = selectfirst_hashref_query($form, $dbh, qq|SELECT * FROM notes WHERE id = ?|, conv_i($params{id}));
$main::lxdebug->leave_sub();
$dbh->commit() unless ($params{dbh});
$main::lxdebug->leave_sub();
-
- return $ref;
}
1;