mebil

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

diff --git a/SL/PriceSource/Customer.pm b/SL/PriceSource/Customer.pm
index 6bf06bc3018c32060f7ddedc88396ca8b00678ad..34f60a743c1ef094b9f1e39c72e507ba762ad1ee 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);
@@ -56,7 +59,7 @@ sub price_from_source {
       spec         => $customer->id,
       description  => t8('Customer Discount'),
       price_source => $self,
-      invalid      => t8('This discount is only valid for customer #1', $customer->full_description),
+      invalid      => t8('This discount is only valid for customer #1', $customer->displayable_name),
     )
   }