From 1e2673bbe853305facd6bf61d7bb45141250136d Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Thu, 18 Dec 2014 15:18:43 +0100
Subject: [PATCH] PriceRule: customervendor accessor in Rechnungen

---
 SL/DB/Invoice.pm         | 4 ++++
 SL/DB/PurchaseInvoice.pm | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm
index 45c59123c..ae1c596d6 100644
--- a/SL/DB/Invoice.pm
+++ b/SL/DB/Invoice.pm
@@ -347,6 +347,10 @@ sub reqdate {
   goto &duedate;
 }
 
+sub customervendor {
+  goto &customer;
+}
+
 sub transactions {
   my ($self) = @_;
 
diff --git a/SL/DB/PurchaseInvoice.pm b/SL/DB/PurchaseInvoice.pm
index a15da4f92..bddaa6551 100644
--- a/SL/DB/PurchaseInvoice.pm
+++ b/SL/DB/PurchaseInvoice.pm
@@ -58,6 +58,10 @@ sub reqdate {
   goto &duedate;
 }
 
+sub customervendor {
+  goto &vendor;
+}
+
 sub abbreviation {
   my $self = shift;
 
-- 
2.20.1