+sub make_listprice {
+ my ($self) = @_;
+
+ return SL::PriceSource::Price->new(
+ price => $self->part->listprice * $self->unit_mul,
+ spec => 'listprice',
+ description => t8('List Price'),
+ price_source => $self,
+ );
+}
+
+sub make_lastcost {
+ my ($self) = @_;
+
+ return SL::PriceSource::Price->new(
+ price => $self->part->lastcost * $self->unit_mul,
+ spec => 'lastcost',
+ description => t8('Lastcost'),
+ price_source => $self,
+ );
+}
+