From 2aecf487d4afd29f13007b927fec624c2f45d3ce Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Mon, 23 Jun 2014 13:25:36 +0200
Subject: [PATCH] =?utf8?q?SL::DB::Invoice:=20Verkn=C3=BCpfung=20auf=20die?=
 =?utf8?q?=20Buchungsobjekte?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/DB/Invoice.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm
index 0e9616651..502654ba2 100644
--- a/SL/DB/Invoice.pm
+++ b/SL/DB/Invoice.pm
@@ -320,6 +320,15 @@ sub date {
   goto &transdate;
 }
 
+sub transactions {
+  my ($self) = @_;
+
+  return unless $self->id;
+
+  require SL::DB::AccTransaction;
+  SL::DB::Manager::AccTransaction->get_all(query => [ trans_id => $self->id ]);
+}
+
 1;
 
 __END__
-- 
2.20.1