From be40bd398c2911e87af5e9fd6025ea1faceb679c Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 29 Dec 2010 11:21:56 +0100
Subject: [PATCH] Revert von 55e9890a und 1465da30
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Hintergrund. Wird eine Rechnung gebucht, bei der eine Auftragsnummber
angegeben war, so werden beim erneuten Aufrufen der Rechnung durch
diesen Code gewisse sehr wichtige Felder (Zahlungsbedingungen,
Steuerzone, Auftragsdatum etc) mit den Werten aus dem Auftrag
überschrieben.
---
 SL/OE.pm          | 33 ---------------------------------
 bin/mozilla/is.pl |  8 --------
 2 files changed, 41 deletions(-)

diff --git a/SL/OE.pm b/SL/OE.pm
index b9aba5c03..63fcf1f06 100644
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -1285,39 +1285,6 @@ sub project_description {
   return $value;
 }
 
-##########################
-# Get data for the submitted order id
-# from database
-#
-sub get_order_data_by_ordnumber {
-  $main::lxdebug->enter_sub();
-
-  my $self      = shift;
-  my %params    = @_;
-
-  Common::check_params(\%params, qw(ordnumber));
-
-  my $form     = $main::form;
-  my %myconfig = %main::myconfig;
-  my $dbh      = $form->get_standard_dbh();
-
-  my @values = ($params{ordnumber});
-
-  # We query the database for the fields we need using the submitted "ordnumber"
-  my $query = <<SQL;
-    SELECT o.payment_id, o.salesman_id, o.transdate AS orddate, o.taxzone_id, o.quonumber
-    FROM oe o
-    WHERE o.ordnumber = ?;
-SQL
-
-  # Do the actual query and return the results for later processing by our "frontend"
-  my $result = selectfirst_hashref_query($form, $dbh, $query, @values);
-
-  $main::lxdebug->leave_sub();
-
-  return $result;
-}
-
 1;
 
 __END__
diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index b38cfd1d5..f4ae1c952 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -155,14 +155,6 @@ sub invoice_links {
     $ref->{name} = $form->quote($ref->{name});
   }
 
-  # Load data for a specific order and update form fields
-  my $order_data = OE->get_order_data_by_ordnumber(%$form) if $form->{ordnumber};
-
-  # Copy the fields we need to %form
-  for my $key (qw(payment_id salesman_id orddate taxzone_id quonumber)) {
-    $form->{$key} = $order_data->{$key};
-  }
-
   $form->restore_vars(qw(id));
 
   IS->retrieve_invoice(\%myconfig, \%$form);
-- 
2.20.1