1 package SL::PriceSource::Pricegroup;
4 use parent qw(SL::PriceSource::Base);
6 use SL::PriceSource::Price;
7 use SL::Locale::String;
9 sub name { 'pricegroup' }
11 sub description { t8('Pricegroup') }
13 sub available_prices {
14 my ($self, %params) = @_;
16 my $item = $self->record_item;
18 my $prices = SL::DB::Manager::Price->get_all(
19 query => [ parts_id => $item->parts_id, price => { gt => 0 } ],
20 with_objects => 'pricegroup',
21 order_by => 'pricegroun.id',
24 return () unless @$prices;
27 $self->make_price($_);
31 sub price_from_source {
32 my ($self, $source, $spec) = @_;
34 my $price = SL::DB::Manager::Price->find_by(id => $spec);
36 return $self->make_price($price);
40 my ($self, $price_obj) = @_;
42 SL::PriceSource::Price->new(
43 price => $price_obj->price,
44 source => 'pricegroup/' . $price_obj->id,
45 description => $price_obj->pricegroup->pricegroup,
46 price_source => $self,