Assembly - linetotal Helperfunktionen

diff --git a/SL/DB/Assembly.pm b/SL/DB/Assembly.pm
index 767ba41..a77e34b 100644 (file)
--- a/SL/DB/Assembly.pm
+++ b/SL/DB/Assembly.pm
@@ -12,4 +12,18 @@ __PACKAGE__->meta->make_manager_class;
 
 __PACKAGE__->meta->initialize;
 
+sub linetotal {
+  my ($self) = @_;
+
+  return 0 unless $self->qty > 0 and $self->part->sellprice > 0;
+  return $self->qty * $self->part->sellprice / ( $self->part->price_factor_id ? $self->part->price_factor->factor : 1 );
+}
+
+sub linetotal_lastcost {
+  my ($self) = @_;
+
+  return 0 unless $self->qty > 0 and $self->part->lastcost > 0;
+  return $self->qty * $self->part->lastcost / ( $self->part->price_factor_id ? $self->part->price_factor->factor : 1 );
+}
+
 1;