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' }
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'),
);
}
-sub price_from_source {
+sub price_from_source { }
+
+sub discount_from_source {
my ($self, $source, $spec) = @_;
my $vendor = SL::DB::Vendor->load_cached($spec);
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),
)
}