ADR entfernt (kam aus Kundenprojekt und ist nicht fuer die allgemeine Lx-Office-Varia...

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 96d0adca049ac2028b4464115662a10611d3a216..3354a2f1b5368e2dd0f97470c52e5922622f2960 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1563,18 +1563,6 @@ sub language_payment {
   }
   $sth->finish;
 
-  # get adr
-  $query = qq|SELECT id, adr_description, adr_code
-              FROM adr|;
-  $sth = $dbh->prepare($query);
-  $sth->execute || $form->dberror($query);
-
-
-  $self->{ADR} = [];
-  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
-    push @{ $self->{ADR} }, $ref;
-  }
-  $sth->finish;
   $dbh->disconnect;
   $main::lxdebug->leave_sub();
 }