SL/PriceSource/Pricegroup.pm

   1 package SL::PriceSource::Pricegroup;
   2
   3 use strict;
   4 use parent qw(SL::PriceSource::Base);
   5
   6 use SL::PriceSource::Price;
   7 use SL::DB::Price;
   8 use SL::Locale::String;
   9 use List::UtilsBy qw(min_by);
  10 use List::Util qw(first);
  11
  12 sub name { 'pricegroup' }
  13
  14 sub description { t8('Pricegroup') }
  15
  16 sub available_prices {
  17   my ($self, %params) = @_;
  18
  19   return () unless $self->record->is_sales;
  20
  21   my $item = $self->record_item;
  22
  23   my $prices = SL::DB::Manager::Price->get_all(
  24     query        => [ parts_id => $item->parts_id, price => { gt => 0 } ],
  25     with_objects => 'pricegroup',
  26     order_by     => 'pricegroun.id',
  27   );
  28
  29   return () unless @$prices;
  30
  31   return map {
  32     $self->make_price($_);
  33   } @$prices;
  34 }
  35
  36 sub available_discounts { }
  37
  38 sub price_from_source {
  39   my ($self, $source, $spec) = @_;
  40
  41   my $price = SL::DB::Manager::Price->find_by(pricegroup_id => $spec, parts_id => $self->part->id);
  42
  43   # TODO: if someone deletes the prices entry, this fails. add a fallback
  44   return $self->make_price($price);
  45 }
  46
  47 sub best_price {
  48   my ($self, %params) = @_;
  49
  50   return () unless $self->record->is_sales;
  51
  52   my @prices    = $self->available_prices;
  53   my $customer  = $self->record->customer;
  54
  55   return () if !$customer || !$customer->klass;
  56
  57   my $best_price = first { $_->spec == $customer->klass } @prices;
  58
  59   return $best_price || ();
  60 }
  61
  62 sub best_discount { }
  63
  64 sub make_price {
  65   my ($self, $price_obj) = @_;
  66
  67   SL::PriceSource::Price->new(
  68     price        => $price_obj->price,
  69     spec         => $price_obj->pricegroup->id,
  70     description  => $price_obj->pricegroup->pricegroup,
  71     price_source => $self,
  72   )
  73 }
  74
  75 1;