X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/89b2668811eac6023ad58322e2f9970ddb6a27c9..c6dd542b51ae9549ad42a54f9023b905412bbab9:/SL/PriceSource/Customer.pm

diff --git a/SL/PriceSource/Customer.pm b/SL/PriceSource/Customer.pm
index 6bf06bc30..c0cfbc09a 100644
--- 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);