X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0409db7c50da81e1eb613bd33663fb5b07935a01..df1b03d578280d71fb839b437505dd283f6dd749:/SL/PriceSource/Makemodel.pm

diff --git a/SL/PriceSource/Makemodel.pm b/SL/PriceSource/Makemodel.pm
new file mode 100644
index 000000000..2a4f5b043
--- /dev/null
+++ b/SL/PriceSource/Makemodel.pm
@@ -0,0 +1,57 @@
+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;
+}
+
+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;
+
+}
+
+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;