1 package SL::PriceSource::Pricegroup;
4 use parent qw(SL::PriceSource::Base);
6 use SL::PriceSource::Price;
8 use SL::Locale::String;
9 use List::UtilsBy qw(min_by);
10 use List::Util qw(first);
12 sub name { 'pricegroup' }
14 sub description { t8('Pricegroup') }
16 sub available_prices {
17 my ($self, %params) = @_;
19 return () unless $self->record->is_sales;
21 my $item = $self->record_item;
23 my $query = [ parts_id => $item->parts_id, price => { gt => 0 } ];
25 # add a pricegroup_filter for obsolete pricegroups, unless part of an
26 # existing pricegroup where that pricegroup was actually used.
27 if ( $self->record->id and $item->active_price_source =~ m/^pricegroup/ ) {
28 my ($pricegroup_id) = $item->active_price_source =~ m/^pricegroup\/(\d+)$/;
29 push(@{$query}, or => [ 'pricegroup.obsolete' => 0, 'pricegroup_id' => $pricegroup_id ]);
31 push(@{$query}, 'pricegroup.obsolete' => 0);
34 my $prices = SL::DB::Manager::Price->get_all(
36 with_objects => 'pricegroup',
37 sort_by => 'pricegroup.sortkey',
40 return () unless @$prices;
43 $self->make_price($_);
47 sub available_discounts { }
49 sub price_from_source {
50 my ($self, $source, $spec) = @_;
52 my $price = SL::DB::Manager::Price->find_by(pricegroup_id => $spec, parts_id => $self->part->id);
54 # TODO: if someone deletes the prices entry, this fails. add a fallback
55 return $self->make_price($price);
58 sub discount_from_source { }
61 my ($self, %params) = @_;
63 return () unless $self->record->is_sales;
65 my @prices = $self->available_prices;
66 my $customer = $self->record->customer;
68 return () if !$customer || !$customer->pricegroup_id;
70 my $best_price = first { $_->spec == $customer->pricegroup_id } @prices;
72 return $best_price || ();
78 my ($self, $price_obj) = @_;
80 SL::PriceSource::Price->new(
81 price => $price_obj->price,
82 spec => $price_obj->pricegroup->id,
83 description => $price_obj->pricegroup->pricegroup,
84 price_source => $self,