Patch aus Bug 1343: csv in ../users speichern

[kivitendo-erp.git] / SL / FU.pm

diff --git a/SL/FU.pm b/SL/FU.pm
index c34a031..ad6149d 100644 (file)
--- a/SL/FU.pm
+++ b/SL/FU.pm
@@ -8,6 +8,8 @@ use SL::Common;
 use SL::DBUtils;
 use SL::Notes;
 
+use strict;
+
 sub save {
   $main::lxdebug->enter_sub();
 
@@ -36,7 +38,8 @@ sub save {
                                  '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});
 
@@ -44,7 +47,7 @@ sub save {
 
   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} }) {
@@ -181,7 +184,8 @@ sub follow_ups {
   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
@@ -238,7 +242,7 @@ sub follow_ups {
 
   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 = '';
@@ -269,7 +273,7 @@ sub follow_ups {
                  $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();