SL/PriceSource/PriceRules.pm

   1 package SL::PriceSource::PriceRules;
   2
   3 use strict;
   4 use parent qw(SL::PriceSource::Base);
   5
   6 use SL::PriceSource::Price;
   7 use SL::Locale::String;
   8 use SL::DB::PriceRule;
   9 use List::UtilsBy qw(min_by max_by);
  10
  11 sub name { 'price_rules' }
  12
  13 sub description { t8('Price Rule') }
  14
  15 sub available_rules {
  16   my ($self, %params) = @_;
  17
  18   SL::DB::Manager::PriceRule->get_all_matching(record => $self->record, record_item => $self->record_item);
  19 }
  20
  21 sub available_prices {
  22   my ($self, %params) = @_;
  23
  24   my $rules = $self->available_rules;
  25
  26   map { $self->make_price_from_rule($_) } @$rules;
  27 }
  28
  29 sub available_discounts { }
  30
  31 sub price_from_source {
  32   my ($self, $source, $spec) = @_;
  33
  34   my $rule = SL::DB::Manager::PriceRule->find_by(id => $spec);
  35   $self->make_price_from_rule($rule);
  36 }
  37
  38 sub best_price {
  39   my ($self) = @_;
  40
  41   my $rules     = $self->available_rules;
  42
  43   return unless @$rules;
  44
  45   my @max_prio  = max_by { $_->priority } @$rules;
  46   my $min_price = min_by { $self->price_for_rule($_) } @max_prio;
  47
  48   $self->make_price_from_rule($min_price);
  49 }
  50
  51 sub best_discount { }
  52
  53 sub price_for_rule {
  54   my ($self, $rule) = @_;
  55   $rule->price_or_discount
  56     ? (1 - $rule->discount / 100) * ($rule->is_sales ? $self->part->sellprice : $self->part->lastcost)
  57     : $rule->price;
  58 }
  59
  60 sub make_price_from_rule {
  61   my ($self, $rule) = @_;
  62
  63   SL::PriceSource::Price->new(
  64     price        => $self->price_for_rule($rule),
  65     spec         => $rule->id,
  66     description  => $rule->name,
  67     price_source => $self,
  68   )
  69 }
  70
  71 1;