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