From 0d180400318c34e6bedc1b4c526933864ff34043 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= <bernd@kivitendo-premium.de>
Date: Fri, 31 Jan 2020 13:21:22 +0100
Subject: [PATCH] =?utf8?q?SL::Form:=20get=5Flists:=20Unterst=C3=BCtzung=20?=
 =?utf8?q?f=C3=BCr=20shipto=20entfernt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

get_lists für shipto wird nirgends mehr verwendet, soweit ich das sehe.

Zudem hat _get_shipto module nicht berücksichtigt und da customer und ar
ids aus eigenen Sequenzen bekommen und somit zwei dieser ids für die
verschiedenen Tabellen gleich sein können, konnte es passieren, dass für einen
Kunden eine individuelle Lieferadresse aus einer Rechnung (für einen anderen
Kunden) zurückgelieferrt wird.
---
 SL/Form.pm | 28 +++-------------------------
 1 file changed, 3 insertions(+), 25 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index bf126cb55..2a8cff461 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2071,26 +2071,6 @@ sub _get_projects {
   $main::lxdebug->leave_sub();
 }
 
-sub _get_shipto {
-  $main::lxdebug->enter_sub();
-
-  my ($self, $dbh, $vc_id, $key) = @_;
-
-  $key = "all_shipto" unless ($key);
-
-  if ($vc_id) {
-    # get shipping addresses
-    my $query = qq|SELECT * FROM shipto WHERE trans_id = ?|;
-
-    $self->{$key} = selectall_hashref_query($self, $dbh, $query, $vc_id);
-
-  } else {
-    $self->{$key} = [];
-  }
-
-  $main::lxdebug->leave_sub();
-}
-
 sub _get_printers {
   $main::lxdebug->enter_sub();
 
@@ -2393,11 +2373,13 @@ sub get_lists {
   my $self = shift;
   my %params = @_;
 
+  croak "get_lists: shipto is no longer supported" if $params{shipto};
+
   my $dbh = $self->get_standard_dbh(\%main::myconfig);
   my ($sth, $query, $ref);
 
   my ($vc, $vc_id);
-  if ($params{contacts} || $params{shipto}) {
+  if ($params{contacts}) {
     $vc = 'customer' if $self->{"vc"} eq "customer";
     $vc = 'vendor'   if $self->{"vc"} eq "vendor";
     die "invalid use of get_lists, need 'vc'" unless $vc;
@@ -2408,10 +2390,6 @@ sub get_lists {
     $self->_get_contacts($dbh, $vc_id, $params{"contacts"});
   }
 
-  if ($params{"shipto"}) {
-    $self->_get_shipto($dbh, $vc_id, $params{"shipto"});
-  }
-
   if ($params{"projects"} || $params{"all_projects"}) {
     $self->_get_projects($dbh, $params{"all_projects"} ?
                          $params{"all_projects"} : $params{"projects"},
-- 
2.20.1