X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPriceSource%2FVendor.pm;h=0f0a0cfeb0da25708ae086357c89d07de892bd59;hb=bec23a700e524b09e80fde2ec8178367aa3a16e2;hp=94d9bd01f689c00f17c65d03022fbee097d31500;hpb=89b2668811eac6023ad58322e2f9970ddb6a27c9;p=kivitendo-erp.git diff --git a/SL/PriceSource/Vendor.pm b/SL/PriceSource/Vendor.pm index 94d9bd01f..0f0a0cfeb 100644 --- a/SL/PriceSource/Vendor.pm +++ b/SL/PriceSource/Vendor.pm @@ -4,7 +4,7 @@ use strict; use parent qw(SL::PriceSource::Base); use SL::DB::Vendor; -use SL::PriceSource::Price; +use SL::PriceSource::Discount; use SL::Locale::String; sub name { 'vendor_discount' } @@ -20,7 +20,7 @@ sub available_discounts { return unless $self->record->vendor; return unless $self->record->vendor->discount != 0; - SL::PriceSource::Vendor->new( + SL::PriceSource::Discount->new( discount => $self->record->vendor->discount, spec => $self->record->vendor->id, description => t8('Vendor Discount'), @@ -28,7 +28,9 @@ sub available_discounts { ); } -sub price_from_source { +sub price_from_source { } + +sub discount_from_source { my ($self, $source, $spec) = @_; my $vendor = SL::DB::Vendor->load_cached($spec); @@ -56,7 +58,7 @@ sub price_from_source { spec => $vendor->id, description => t8('Vendor Discount'), price_source => $self, - invalid => t8('This discount is only valid for vendor #1', $vendor->full_description), + invalid => t8('This discount is only valid for vendor #1', $vendor->displayable_name), ) }