X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FPriceSource%2FCustomer.pm;h=c0cfbc09a86b083373545412b40c0a5f238bd7b1;hb=a3335295fe8ac1acdb4b55324812c70af1e43b47;hp=6bf06bc3018c32060f7ddedc88396ca8b00678ad;hpb=89b2668811eac6023ad58322e2f9970ddb6a27c9;p=kivitendo-erp.git 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);