From: Sven Schöling <s.schoeling@linet-services.de>
Date: Thu, 21 Oct 2010 09:34:45 +0000 (+0200)
Subject: accessoren für income/expense_accno_id, die die postfix Indizes abstrahieren.
X-Git-Tag: release-2.6.2beta1~92^2~5
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/commitdiff_plain/7ed8903a4ff6e75d34069eb3bdeba2cf4f8f11db

accessoren für income/expense_accno_id, die die postfix Indizes abstrahieren.
---

diff --git a/SL/DB/Buchungsgruppe.pm b/SL/DB/Buchungsgruppe.pm
index 2dffaa5a9..26f446b33 100644
--- a/SL/DB/Buchungsgruppe.pm
+++ b/SL/DB/Buchungsgruppe.pm
@@ -10,4 +10,20 @@ use SL::DB::MetaSetup::Buchungsgruppe;
 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
 __PACKAGE__->meta->make_manager_class;
 
+sub income_accno_id {
+  my ($self, $taxzone) = @_;
+  my $taxzone_id = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;
+  my $method = 'income_accno_id_' . $taxzone_id;
+
+  return $self->$method;
+}
+
+sub expense_accno_id {
+  my ($self, $taxzone) = @_;
+  my $taxzone_id = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;
+  my $method = 'expense_accno_id_' . $taxzone_id;
+
+  return $self->$method;
+}
+
 1;