[% RAWPERL %] use Dilos::LocationType; use Dilos::Location::BDBCacheable; my $country_type = Dilos::LocationType->new(-id => 1); my $countries = Dilos::Location::BDBCacheable->all(-type => $country_type, -ref => 1); # only locations with hotels @{$countries} = grep { $_->hotels_including_children_number(-min_priority => 1) } @{$countries}; $stash->set(countries => $countries); [% END %]
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||