PriceSources: discount_from_source analog zu price_from_source implemeniert.

[mfinanz.git] / SL / PriceSource / Customer.pm

diff --git a/SL/PriceSource/Customer.pm b/SL/PriceSource/Customer.pm
index 6bf06bc3018c32060f7ddedc88396ca8b00678ad..c0cfbc09a86b083373545412b40c0a5f238bd7b1 100644 (file)
--- a/SL/PriceSource/Customer.pm
+++ b/SL/PriceSource/Customer.pm
@@ -16,6 +16,7 @@ sub available_prices { }
 sub available_discounts {
   my ($self, %params) = @_;
 
+  return if     $self->part->not_discountable;
   return unless $self->record->is_sales;
   return unless $self->record->customer;
   return unless $self->record->customer->discount != 0;
@@ -28,7 +29,9 @@ sub available_discounts {
   );
 }
 
-sub price_from_source {
+sub price_from_source { }
+
+sub discount_from_source {
   my ($self, $source, $spec) = @_;
 
   my $customer = SL::DB::Customer->load_cached($spec);