kivitendo/SL/PriceSource/Makemodel.pm @ 79b7fc43
| df1b03d5 | Sven Schöling | package SL::PriceSource::Makemodel;
|
||
use strict;
|
||||
use parent qw(SL::PriceSource::Base);
|
||||
use SL::PriceSource::Price;
|
||||
use SL::Locale::String;
|
||||
use SL::DB::MakeModel;
|
||||
use List::UtilsBy qw(min_by);
|
||||
sub name { 'makemodel' }
|
||||
sub description { t8('Makemodel Price') }
|
||||
sub available_prices {
|
||||
my ($self, %params) = @_;
|
||||
return () if !$self->part;
|
||||
return () if $self->record->is_sales;
|
||||
map { $self->make_price_from_makemodel($_) }
|
||||
grep { $_->make == $self->record->vendor_id }
|
||||
$self->part->makemodels;
|
||||
}
|
||||
| 89b26688 | Sven Schöling | sub available_discounts { }
|
||
| df1b03d5 | Sven Schöling | sub price_from_source {
|
||
my ($self, $source, $spec) = @_;
|
||||
my $makemodel = SL::DB::Manager::MakeModel->find_by(id => $spec);
|
||||
# TODO: if someone deletes the prices entry, this fails. add a fallback
|
||||
return $self->make_price_from_makemodel($makemodel);
|
||||
}
|
||||
sub best_price {
|
||||
my ($self, %params) = @_;
|
||||
return () if $self->record->is_sales;
|
||||
min_by { $_->price } $self->available_prices;
|
||||
}
|
||||
| 89b26688 | Sven Schöling | sub best_discount { }
|
||
| df1b03d5 | Sven Schöling | sub make_price_from_makemodel {
|
||
my ($self, $makemodel) = @_;
|
||||
return SL::PriceSource::Price->new(
|
||||
price => $makemodel->lastcost,
|
||||
spec => $makemodel->id,
|
||||
description => $makemodel->model,
|
||||
price_source => $self,
|
||||
);
|
||||
}
|
||||
1;
|