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