use SL::DBUtils;
use SL::Notes;
+use strict;
+
sub save {
$main::lxdebug->enter_sub();
'trans_id' => $params{id},
'trans_module' => 'fu',
'subject' => $params{subject},
- 'body' => $params{body});
+ 'body' => $params{body},
+ 'dbh' => $dbh,);
$params{done} = 1 if (!defined $params{done});
do_query($form, $dbh, qq|DELETE FROM follow_up_links WHERE follow_up_id = ?|, conv_i($params{id}));
- my $query = qq|INSERT INTO follow_up_links (follow_up_id, trans_id, trans_type, trans_info) VALUES (?, ?, ?, ?)|;
+ $query = qq|INSERT INTO follow_up_links (follow_up_id, trans_id, trans_type, trans_info) VALUES (?, ?, ?, ?)|;
my $sth = prepare_query($form, $dbh, $query);
foreach my $link (@{ $params{LINKS} }) {
my ($query, $where, $where_user);
my ($employee_id) = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $form->{login});
- my @values = ($employee_id, $employee_id);
+ my @values = ();
+ my @values_user = ();
if ($params{trans_id}) {
$where .= qq| AND EXISTS (SELECT * FROM follow_up_links ful
if ($params{all_users}) {
$where_user = qq|OR (fu.created_by IN (SELECT DISTINCT what FROM follow_up_access WHERE who = ?))|;
- push @values, $employee_id;
+ push @values_user, $employee_id;
}
my $order_by = '';
$where
$order_by|;
- my $follow_ups = selectall_hashref_query($form, $dbh, $query, @values);
+ my $follow_ups = selectall_hashref_query($form, $dbh, $query, $employee_id, $employee_id, @values_user, @values);
if (!scalar @{ $follow_ups }) {
$main::lxdebug->leave_sub();
if ($params{trans_type} eq 'customer') {
$link = {
- 'url' => 'ct.pl?action=edit&db=customer&id=' . $form->quote($params{trans_id}) . '&edit_note_id=' . $form->quote($params{note_id}),
+ 'url' => 'controller.pl?action=CustomerVendor/edit&db=customer&id=' . $form->quote($params{trans_id}) . '¬e_id=' . $form->quote($params{note_id}),
'title' => $locale->text('Customer') . " '$params{trans_info}'",
};
} elsif ($params{trans_type} eq 'vendor') {
$link = {
- 'url' => 'ct.pl?action=edit&type=sales_quotation&id=' . $params{trans_id} . '&edit_note_id=' . $form->quote($params{note_id}),
+ 'url' => 'controller.pl?action=CustomerVendor/edit&db=vendor&id=' . $params{trans_id} . '¬e_id=' . $form->quote($params{note_id}),
'title' => $locale->text('Vendor') . " '$params{trans_info}'",
};
'title' => $locale->text('Sales quotation') . " $params{trans_info}",
};
+ } elsif ($params{trans_type} eq 'sales_delivery_order') {
+
+ $link = {
+ 'url' => 'do.pl?action=edit&type=sales_delivery_order&id=' . $params{trans_id} . '&edit_note_id=' . $form->quote($params{note_id}),
+ 'title' => $locale->text('Sales delivery order') .' '. $params{trans_info},
+ };
+
+ } elsif ($params{trans_type} eq 'purchase_delivery_order') {
+
+ $link = {
+ 'url' => 'do.pl?action=edit&type=purchase_delivery_order&id=' . $params{trans_id} . '&edit_note_id=' . $form->quote($params{note_id}),
+ 'title' => $locale->text('Purchase delivery order') .' '. $params{trans_info},
+ };
+
} elsif ($params{trans_type} eq 'sales_order') {
$link = {
'url' => 'oe.pl?action=edit&type=sales_order&id=' . $params{trans_id},
} elsif ($params{trans_type} eq 'ar_transaction') {
$link = {
- 'url' => 'ar.pl?action=editid=' . $params{trans_id},
+ 'url' => 'ar.pl?action=edit&id=' . $params{trans_id},
'title' => $locale->text('AR Transaction') . " $params{trans_info}",
};
} elsif ($params{trans_type} eq 'ap_transaction') {
$link = {
- 'url' => 'ap.pl?action=editid=' . $params{trans_id},
+ 'url' => 'ap.pl?action=edit&id=' . $params{trans_id},
'title' => $locale->text('AP Transaction') . " $params{trans_info}",
};
my ($id) = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $form->{login});
+ do_query($form, $dbh, qq|DELETE FROM follow_up_access WHERE what = ?|, $id);
+
my $query = qq|INSERT INTO follow_up_access (who, what) VALUES (?, ?)|;
my $sth = prepare_query($form, $dbh, $query);
- do_query($form, $dbh, qq|DELETE FROM follow_up_access WHERE what = ?|, $id);
-
while (my ($who, $access_allowed) = each %{ $params{access} }) {
next unless ($access_allowed);