12 $main::lxdebug->enter_sub();
17 my $myconfig = \%main::myconfig;
18 my $form = $main::form;
20 SL::DB->client->with_transaction(sub {
21 my $dbh = $params{dbh} || SL::DB->client->dbh;
25 ($params{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('note_id')|);
26 $query = qq|INSERT INTO notes (created_by, trans_id, trans_module, subject, body, id)
27 VALUES ((SELECT id FROM employee WHERE login = ?), ?, ?, ?, ?, ?)|;
28 push @values, $::myconfig{login}, conv_i($params{trans_id}), $params{trans_module};
31 $query = qq|UPDATE notes SET subject = ?, body = ? WHERE id = ?|;
34 push @values, $params{subject}, $params{body}, conv_i($params{id});
36 do_query($form, $dbh, $query, @values);
39 $main::lxdebug->leave_sub();
45 $main::lxdebug->enter_sub();
50 Common::check_params(\%params, qw(id));
52 my $myconfig = \%main::myconfig;
53 my $form = $main::form;
55 my $dbh = $form->get_standard_dbh($myconfig);
57 my $ref = selectfirst_hashref_query($form, $dbh, qq|SELECT * FROM notes WHERE id = ?|, conv_i($params{id}));
59 $main::lxdebug->leave_sub();
65 $main::lxdebug->enter_sub();
70 Common::check_params(\%params, qw(id));
72 my $myconfig = \%main::myconfig;
73 my $form = $main::form;
75 SL::DB->client->with_transaction(sub {
76 my $dbh = $params{dbh} || SL::DB->client->dbh;
77 my $id = conv_i($params{id});
79 do_query($form, $dbh, qq|DELETE FROM follow_up_links WHERE follow_up_id IN (SELECT DISTINCT id FROM follow_ups WHERE note_id = ?)|, $id);
80 do_query($form, $dbh, qq|DELETE FROM follow_ups WHERE note_id = ?|, $id);
81 do_query($form, $dbh, qq|DELETE FROM notes WHERE id = ?|, $id);
84 $main::lxdebug->leave_sub();