SL/PriceSource/Business.pm

   1 package SL::PriceSource::Business;
   2
   3 use strict;
   4 use parent qw(SL::PriceSource::Base);
   5
   6 use SL::DB::Business;
   7 use SL::PriceSource::Discount;
   8 use SL::Locale::String;
   9
  10 sub name { 'business' }
  11
  12 sub description { t8('Business') }
  13
  14 sub available_prices { }
  15
  16 sub available_discounts {
  17   my ($self, %params) = @_;
  18
  19   return unless $self->customer_vendor;
  20   return unless $self->customer_vendor->business;
  21   return unless $self->customer_vendor->business->discount != 0;
  22
  23   SL::PriceSource::Discount->new(
  24     discount     => $self->customer_vendor->business->discount,
  25     spec         => $self->customer_vendor->business->id,
  26     description  => t8('Business Discount'),
  27     price_source => $self,
  28   );
  29 }
  30
  31 sub price_from_source {
  32   my ($self, $source, $spec) = @_;
  33
  34   my $business = SL::DB::Business->load_cached($spec);
  35
  36   if (!$business) {
  37     return SL::PriceSource::Discount->new(
  38       missing      => t8('Could not load this business'),
  39       price_source => $self,
  40     )
  41   }
  42
  43   if (!$self->customer_vendor) {
  44     return SL::PriceSource::Discount->new(
  45       discount     => $business->discount,
  46       spec         => $business->id,
  47       description  => t8('Business Discount'),
  48       price_source => $self,
  49       invalid      => t8('This discount is only valid in records with customer or vendor'),
  50     )
  51   }
  52
  53   if ($business->id != $self->customer_vendor->business->id) {
  54     return SL::PriceSource::Discount->new(
  55       discount     => $business->discount,
  56       spec         => $business->id,
  57       description  => t8('Business Discount'),
  58       price_source => $self,
  59       invalid      => t8('This discount is only valid for business #1', $business->full_description),
  60     )
  61   }
  62
  63   return SL::PriceSource::Discount->new(
  64     discount     => $business->discount,
  65     spec         => $business->id,
  66     description  => t8('Business Discount'),
  67     price_source => $self,
  68   );
  69 }
  70
  71 sub best_price { }
  72
  73 sub best_discount {
  74   &available_discounts;
  75 }
  76
  77 1;
  78