/SL/FU.pm - Annotieren - projekt kivitendo - wissen

| Zweig: | Markierung: | Revision:

kivitendo/SL/FU.pm @ 38e2876f

-a7f33b5
+# Follow-Ups
 package FU;
 use List::Util qw(first);
 use SL::Common;
 use SL::DBUtils;
 use SL::Notes;
-            c510d88b
+use strict;
-a7f33b5
+sub save {
   $main::lxdebug->enter_sub();
   my $self     = shift;
   my %params   = @_;
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
   my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
   my ($query, @values);
   if (!$params{id}) {
     ($params{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('follow_up_id')|);
     $query = qq|INSERT INTO follow_ups (created_by, done, note_id, follow_up_date, created_for_user, id)
                 VALUES ((SELECT id FROM employee WHERE login = ?), ?, ?, ?, ?, ?)|;
     push @values, $form->{login};
   } else {
     $query = qq|UPDATE follow_ups SET done = ?, note_id = ?, follow_up_date = ?, created_for_user = ? WHERE id = ?|;
+  }
   $params{note_id} = Notes->save('id'           => $params{note_id},
                                  'trans_id'     => $params{id},
                                  'trans_module' => 'fu',
                                  'subject'      => $params{subject},
-cd7aea8
+                                 'body'         => $params{body},
                                  'dbh'          => $dbh,);
-a7f33b5
+            Moritz Bunkus
   $params{done} = 1 if (!defined $params{done});
   do_query($form, $dbh, $query, @values, $params{done} ? 't' : 'f', conv_i($params{note_id}), $params{follow_up_date}, conv_i($params{created_for_user}), conv_i($params{id}));
   do_query($form, $dbh, qq|DELETE FROM follow_up_links WHERE follow_up_id = ?|, conv_i($params{id}));
-a5
+  $query = qq|INSERT INTO follow_up_links (follow_up_id, trans_id, trans_type, trans_info) VALUES (?, ?, ?, ?)|;
-a7f33b5
+  my $sth   = prepare_query($form, $dbh, $query);
   foreach my $link (@{ $params{LINKS} }) {
     do_statement($form, $sth, $query, conv_i($params{id}), conv_i($link->{trans_id}), $link->{trans_type}, $link->{trans_info});
+  }
   $sth->finish();
   $dbh->commit() unless ($params{dbh});
   $main::lxdebug->leave_sub();
+}
 sub finish {
   $main::lxdebug->enter_sub();
   my $self     = shift;
   my %params   = @_;
   Common::check_params(\%params, 'id');
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
   my $dbh      = $form->get_standard_dbh($myconfig);
   do_query($form, $dbh, qq|UPDATE follow_ups SET done = TRUE WHERE id = ?|, conv_i($params{id}));
   $dbh->commit();
   $main::lxdebug->leave_sub();
+}
 sub delete {
   $main::lxdebug->enter_sub();
   my $self     = shift;
   my %params   = @_;
   Common::check_params(\%params, 'id');
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
   my $dbh      = $form->get_standard_dbh($myconfig);
   my $id       = conv_i($params{id});
   do_query($form, $dbh, qq|DELETE FROM follow_up_links WHERE follow_up_id = ?|,                         $id);
   do_query($form, $dbh, qq|DELETE FROM follow_ups      WHERE id = ?|,                                   $id);
   do_query($form, $dbh, qq|DELETE FROM notes           WHERE (trans_id = ?) AND (trans_module = 'fu')|, $id);
   $dbh->commit();
   $main::lxdebug->leave_sub();
+}
 sub retrieve {
   $main::lxdebug->enter_sub();
   my $self     = shift;
   my %params   = @_;
   Common::check_params(\%params, 'id');
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
   my $dbh      = $form->get_standard_dbh($myconfig);
   my ($query, @values);
   my ($employee_id) = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $form->{login});
   $query            = qq|SELECT fu.*, n.subject, n.body, n.created_by
                          FROM follow_ups fu
                          LEFT JOIN notes n ON (fu.note_id = n.id)
                          WHERE (fu.id = ?)
                            AND (   (fu.created_by = ?) OR (fu.created_for_user = ?)
                                 OR (fu.created_by IN (SELECT DISTINCT what FROM follow_up_access WHERE who = ?)))|;
   my $ref           = selectfirst_hashref_query($form, $dbh, $query, conv_i($params{id}), $employee_id, $employee_id, $employee_id);
   if (!$ref) {
     $main::lxdebug->leave_sub();
     return undef;
+  }
   $ref->{LINKS} = $self->retrieve_links(%{ $ref });
   $main::lxdebug->leave_sub();
   return $ref;
+}
 sub retrieve_links {
   $main::lxdebug->enter_sub();
   my $self     = shift;
   my %params   = @_;
   Common::check_params(\%params, qw(id));
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
   my $dbh      = $form->get_standard_dbh($myconfig);
   my $query    = qq|SELECT ful.trans_id, ful.trans_type, ful.trans_info, fu.note_id
                     FROM follow_up_links ful
                     LEFT JOIN follow_ups fu ON (ful.follow_up_id = fu.id)
                     WHERE ful.follow_up_id = ?
                     ORDER BY ful.itime|;
   my $links    = selectall_hashref_query($form, $dbh, $query, conv_i($params{id}));
   foreach my $link_ref (@{ $links }) {
     my $link_details = FU->link_details(%{ $link_ref });
     map { $link_ref->{$_} = $link_details->{$_} } keys %{ $link_details} if ($link_details);
+  }
   $main::lxdebug->leave_sub();
   return $links;
+}
 sub follow_ups {
   $main::lxdebug->enter_sub();
   my $self     = shift;
   my %params   = @_;
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
   my $dbh      = $form->get_standard_dbh($myconfig);
   my ($query, $where, $where_user);
   my ($employee_id) = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $form->{login});
-d6beb5d
+  my @values        = ();
   my @values_user   = ();
-a7f33b5
+            Moritz Bunkus
   if ($params{trans_id}) {
     $where .= qq| AND EXISTS (SELECT * FROM follow_up_links ful
                               WHERE (ful.follow_up_id = fu.id) AND (ful.trans_id = ?))|;
     push @values, conv_i($params{trans_id});
+  }
   if ($params{due_only}) {
     $where .= qq| AND (fu.follow_up_date <= current_date)|;
+  }
   if ($params{done} ne $params{not_done}) {
     my $not  = $params{not_done} ? 'NOT' : '';
     $where  .= qq| AND $not COALESCE(fu.done, FALSE)|;
+  }
   if ($params{not_id}) {
     $where .= qq| AND (fu.id <> ?)|;
     push @values, conv_i($params{not_id});
+  }
   foreach my $item (qw(subject body)) {
     next unless ($params{$item});
     $where .= qq| AND (n.${item} ILIKE ?)|;
     push @values, '%' . $params{$item} . '%';
+  }
   if ($params{reference}) {
     $where .= qq| AND EXISTS (SELECT ful.follow_up_id
                               FROM follow_up_links ful
                               WHERE (ful.follow_up_id = fu.id)
                                 AND (ful.trans_info ILIKE ?)
                               LIMIT 1)|;
     push @values, '%' . $params{reference} . '%';
+  }
   if ($params{follow_up_date_from}) {
     $where .= qq| AND (fu.follow_up_date >= ?)|;
     push @values, conv_date($params{follow_up_date_from});
+  }
   if ($params{follow_up_date_to}) {
     $where .= qq| AND (fu.follow_up_date <= ?)|;
     push @values, conv_date($params{follow_up_date_to});
+  }
   if ($params{itime_from}) {
     $where .= qq| AND (date_trunc('DAY', fu.itime) >= ?)|;
     push @values, conv_date($params{itime_from});
+  }
   if ($params{itime_to}) {
     $where .= qq| AND (date_trunc('DAY', fu.itime) <= ?)|;
     push @values, conv_date($params{itime_to});
+  }
   if ($params{all_users}) {
     $where_user = qq|OR (fu.created_by IN (SELECT DISTINCT what FROM follow_up_access WHERE who = ?))|;
-d6beb5d
+    push @values_user, $employee_id;
-a7f33b5
+            Moritz Bunkus
-            e02b6c61
+  my $order_by = '';
   if ($form->{sort} ne 'title') {
     my %sort_columns = (
       'follow_up_date' => [ qw(fu.follow_up_date fu.id) ],
       'created_on'     => [ qw(created_on fu.id) ],
       'subject'        => [ qw(lower(n.subject)) ],
       );
     my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
     my $sortkey = $sort_columns{$form->{sort}} ? $form->{sort} : 'follow_up_date';
     $order_by   = 'ORDER BY ' . join(', ', map { "$_ $sortdir" } @{ $sort_columns{$sortkey} });
+  }
-a7f33b5
+  $query  = qq|SELECT fu.*, n.subject, n.body, n.created_by,
                  fu.follow_up_date <= current_date AS due,
                  fu.itime::DATE                    AS created_on,
                  COALESCE(eby.name,  eby.login)    AS created_by_name,
                  COALESCE(efor.name, efor.login)   AS created_for_user_name
                FROM follow_ups fu
                LEFT JOIN notes    n    ON (fu.note_id          = n.id)
                LEFT JOIN employee eby  ON (n.created_by        = eby.id)
                LEFT JOIN employee efor ON (fu.created_for_user = efor.id)
                WHERE ((fu.created_by = ?) OR (fu.created_for_user = ?)
                       $where_user)
                  $where
-            e02b6c61
+               $order_by|;
-a7f33b5
+            Moritz Bunkus
-d6beb5d
+  my $follow_ups = selectall_hashref_query($form, $dbh, $query, $employee_id, $employee_id, @values_user, @values);
-a7f33b5
+            Moritz Bunkus
   if (!scalar @{ $follow_ups }) {
     $main::lxdebug->leave_sub();
     return $follow_ups;
+  }
   foreach my $fu (@{ $follow_ups }) {
     $fu->{LINKS} = $self->retrieve_links(%{ $fu });
+  }
-            e02b6c61
+  if ($form->{sort} eq 'title') {
     my $dir_factor = !defined $form->{sortdir} ? 1 : $form->{sortdir} ? 1 : -1;
     $follow_ups    = [ map  { $_->[1] }
                        sort { ($a->[0] cmp $b->[0]) * $dir_factor }
                        map  { my $fu = $follow_ups->[$_]; [ @{ $fu->{LINKS} } ? lc($fu->{LINKS}->[0]->{title}) : '', $fu ] }
                        (0 .. scalar(@{ $follow_ups }) - 1) ];
+  }
-a7f33b5
+  $main::lxdebug->leave_sub();
   return $follow_ups;
+}
 sub link_details {
   $main::lxdebug->enter_sub();
   my $self     = shift;
   my %params   = @_;
   Common::check_params(\%params, qw(trans_id trans_type));
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
   my $locale   = $main::locale;
   my $q_id     = $form->quote($params{trans_id});
   my $link;
   if ($params{trans_type} eq 'customer') {
     $link = {
-            bc7c5665
+      'url'   => 'controller.pl?action=CustomerVendor/edit&db=customer&id=' . $form->quote($params{trans_id}) . '&note_id=' . $form->quote($params{note_id}),
-a7f33b5
+      'title' => $locale->text('Customer') . " '$params{trans_info}'",
     };
   } elsif ($params{trans_type} eq 'vendor') {
     $link = {
-            bc7c5665
+      'url'   => 'controller.pl?action=CustomerVendor/edit&db=vendor&id=' . $params{trans_id} . '&note_id=' . $form->quote($params{note_id}),
-a7f33b5
+      'title' => $locale->text('Vendor') . " '$params{trans_info}'",
     };
   } elsif ($params{trans_type} eq 'sales_quotation') {
     $link = {
       'url'   => 'oe.pl?action=edit&type=sales_quotation&id=' . $params{trans_id},
       'title' => $locale->text('Sales quotation') . " $params{trans_info}",
     };
-            af0023e0
+  } 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},
     };
-a7f33b5
+  } elsif ($params{trans_type} eq 'sales_order') {
     $link = {
       'url'   => 'oe.pl?action=edit&type=sales_order&id=' . $params{trans_id},
       'title' => $locale->text('Sales Order') . " $params{trans_info}",
     };
   } elsif ($params{trans_type} eq 'sales_invoice') {
     $link = {
       'url'   => 'is.pl?action=edit&type=invoice&id=' . $params{trans_id},
       'title' => $locale->text('Sales Invoice') . " $params{trans_info}",
     };
   } elsif ($params{trans_type} eq 'credit_note') {
     $link = {
       'url'   => 'is.pl?action=edit&type=credit_note&id=' . $params{trans_id},
       'title' => $locale->text('Credit Note') . " $params{trans_info}",
     };
   } elsif ($params{trans_type} eq 'dunning') {
     $link = {
       'url'   => 'dn.pl?action=print_dunning&format=pdf&media=screen&dunning_id=' . $params{trans_id},
       'title' => $locale->text('Dunning') . " $params{trans_info}",
     };
   } elsif ($params{trans_type} eq 'request_quotation') {
     $link = {
       'url'   => 'oe.pl?action=edit&type=request_quotation&id=' . $params{trans_id},
       'title' => $locale->text('Request quotation') . " $params{trans_info}",
     };
   } elsif ($params{trans_type} eq 'purchase_order') {
     $link = {
       'url'   => 'oe.pl?action=edit&type=purchase_order&id=' . $params{trans_id},
       'title' => $locale->text('Purchase Order') . " $params{trans_info}",
     };
   } elsif ($params{trans_type} eq 'vendor_invoice') {
     $link = {
       'url'   => 'ir.pl?action=edit&type=invoice&id=' . $params{trans_id},
       'title' => $locale->text('Vendor Invoice') . " $params{trans_info}",
     };
   } elsif ($params{trans_type} eq 'ar_transaction') {
     $link = {
-            e6d5baa4
+      'url'   => 'ar.pl?action=edit&id=' . $params{trans_id},
-a7f33b5
+      'title' => $locale->text('AR Transaction') . " $params{trans_info}",
     };
   } elsif ($params{trans_type} eq 'ap_transaction') {
     $link = {
-            e6d5baa4
+      'url'   => 'ap.pl?action=edit&id=' . $params{trans_id},
-a7f33b5
+      'title' => $locale->text('AP Transaction') . " $params{trans_info}",
     };
   } elsif ($params{trans_type} eq 'gl_transaction') {
     $link = {
       'url'   => 'gl.pl?action=edit&id=' . $params{trans_id},
       'title' => $locale->text('GL Transaction') . " $params{trans_info}",
     };
+  }
   $main::lxdebug->leave_sub();
   return $link || { };
+}
 sub save_access_rights {
   $main::lxdebug->enter_sub();
   my $self     = shift;
   my %params   = @_;
   Common::check_params(\%params, 'access');
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
   my $dbh      = $form->get_standard_dbh($myconfig);
   my ($id)     = selectrow_query($form, $dbh, qq|SELECT id FROM employee WHERE login = ?|, $form->{login});
-            ecdb1064
+  do_query($form, $dbh, qq|DELETE FROM follow_up_access WHERE what = ?|, $id);
-a7f33b5
+  my $query    = qq|INSERT INTO follow_up_access (who, what) VALUES (?, ?)|;
   my $sth      = prepare_query($form, $dbh, $query);
   while (my ($who, $access_allowed) = each %{ $params{access} }) {
     next unless ($access_allowed);
     do_statement($form, $sth, $query, conv_i($who), $id);
+  }
   $sth->finish();
   $dbh->commit();
   $main::lxdebug->leave_sub();
+}
 sub retrieve_access_rights {
   $main::lxdebug->enter_sub();
   my $self     = shift;
   my %params   = @_;
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
   my $dbh      = $form->get_standard_dbh($myconfig);
   my $sth      = prepare_execute_query($form, $dbh, qq|SELECT who FROM follow_up_access WHERE what = (SELECT id FROM employee WHERE login = ?)|, $form->{login});
   my $access   = {};
   while (my $ref = $sth->fetchrow_hashref()) {
     $access->{$ref->{who}} = 1;
+  }
   $sth->finish();
   $main::lxdebug->leave_sub();
   return $access;
+}
 ;

Projekt

Allgemein

Profil

projekt kivitendo