X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/e2013e83d2ada0ba4ca439d972dbeaf56cbc16c0..e14cb525c640cb15bb6b2dfb62ccebbe78cb45cd:/SL/DB/Chart.pm diff --git a/SL/DB/Chart.pm b/SL/DB/Chart.pm index 42cd6c947..70019c6fb 100644 --- a/SL/DB/Chart.pm +++ b/SL/DB/Chart.pm @@ -3,6 +3,7 @@ package SL::DB::Chart; use strict; use SL::DB::MetaSetup::Chart; +use SL::DB::Manager::Chart; use SL::DB::TaxKey; __PACKAGE__->meta->add_relationships(taxkeys => { type => 'one to many', @@ -12,12 +13,11 @@ __PACKAGE__->meta->add_relationships(taxkeys => { type => 'one to many', ); __PACKAGE__->meta->initialize; -__PACKAGE__->meta->make_manager_class; sub get_active_taxkey { my ($self, $date) = @_; $date ||= DateTime->today_local; - return SL::DB::Manager::TaxKey->get_all(where => [ and => [ chart_id => $self->id, + return SL::DB::Manager::TaxKey->get_all(query => [ and => [ chart_id => $self->id, startdate => { le => $date } ] ], sort_by => "startdate DESC")->[0]; }