From b4e8cd54fef40b4c042ad9435fd289ddd9d08953 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 7 Feb 2007 12:56:50 +0000
Subject: [PATCH] Beim Auslesen der Lieferantendaten auch den Lieferantentyp
 holen.

---
 SL/IR.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/SL/IR.pm b/SL/IR.pm
index 2077e6b0e..8fb9b7775 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -1002,8 +1002,10 @@ sub get_vendor {
   my $query = qq|SELECT v.name AS vendor, v.creditlimit, v.terms,
                  v.email, v.cc, v.bcc, v.language_id, v.payment_id,
 		 v.street, v.zipcode, v.city, v.country, v.taxzone_id,
-                 $duedate + v.terms AS duedate
+                 $duedate + v.terms AS duedate,
+                 b.description AS business
                  FROM vendor v
+                 LEFT JOIN business b ON b.id = v.business_id
 	         WHERE v.id = $form->{vendor_id}|;
   my $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
-- 
2.20.1