use SL::DB::MetaSetup::Chart;
use SL::DB::Manager::Chart;
-use SL::DB::TaxKey;
__PACKAGE__->meta->add_relationships(taxkeys => { type => 'one to many',
class => 'SL::DB::TaxKey',
sub get_active_taxkey {
my ($self, $date) = @_;
$date ||= DateTime->today_local;
- return SL::DB::Manager::TaxKey->get_all(query => [ and => [ chart_id => $self->id,
- startdate => { le => $date } ] ],
- sort_by => "startdate DESC")->[0];
+
+ my $cache = $::request->cache("get_active_taxkey")->{$date} //= {};
+ return $cache->{$self->id} if $cache->{$self->id};
+
+ require SL::DB::TaxKey;
+ return $cache->{$self->id} = SL::DB::Manager::TaxKey->get_all(
+ query => [ and => [ chart_id => $self->id,
+ startdate => { le => $date } ] ],
+ sort_by => "startdate DESC")->[0];
}
1;