X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/89b2668811eac6023ad58322e2f9970ddb6a27c9..ae278b58747710a8c843a6bee9375186eafa17f7:/SL/PriceSource/Vendor.pm 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), ) }