my $item = $self->record_item;
+ my $query = [ parts_id => $item->parts_id, price => { gt => 0 } ];
+
+ # add a pricegroup_filter for obsolete pricegroups, unless part of an
+ # existing pricegroup where that pricegroup was actually used.
+ if ( $self->record->id and $item->active_price_source =~ m/^pricegroup/ ) {
+ my ($pricegroup_id) = $item->active_price_source =~ m/^pricegroup\/(\d+)$/;
+ push(@{$query}, or => [ 'pricegroup.obsolete' => 0, 'pricegroup_id' => $pricegroup_id ]);
+ } else {
+ push(@{$query}, 'pricegroup.obsolete' => 0);
+ }
+
my $prices = SL::DB::Manager::Price->get_all(
- query => [ parts_id => $item->parts_id, price => { gt => 0 } ],
+ query => $query,
with_objects => 'pricegroup',
- order_by => 'pricegroup.id',
+ sort_by => 'pricegroup.sortkey',
);
return () unless @$prices;
my $price = SL::DB::Manager::Price->find_by(pricegroup_id => $spec, parts_id => $self->part->id);
- # TODO: if someone deletes the prices entry, this fails. add a fallback
+ if (!$price) {
+ return SL::PriceSource::Price->new(
+ price_source => $self,
+ missing => t8('Could not find an entry for this part in the pricegroup.'),
+ );
+ }
+
return $self->make_price($price);
}
+sub discount_from_source { }
+
sub best_price {
my ($self, %params) = @_;
my @prices = $self->available_prices;
my $customer = $self->record->customer;
- return () if !$customer || !$customer->klass;
+ return () if !$customer || !$customer->pricegroup_id;
- my $best_price = first { $_->spec == $customer->klass } @prices;
+ my $best_price = first { $_->spec == $customer->pricegroup_id } @prices;
return $best_price || ();
}