X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/3b249feb1cf3b3dd91dfa3038ef8f694db251988..ddec2dcd58e019a3386dce322985da9bec0c9501:/SL/DB/Assembly.pm

diff --git a/SL/DB/Assembly.pm b/SL/DB/Assembly.pm
index a77e34b54..fd645c2c9 100644
--- a/SL/DB/Assembly.pm
+++ b/SL/DB/Assembly.pm
@@ -1,6 +1,3 @@
-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-
 package SL::DB::Assembly;
 
 use strict;
@@ -12,7 +9,7 @@ __PACKAGE__->meta->make_manager_class;
 
 __PACKAGE__->meta->initialize;
 
-sub linetotal {
+sub linetotal_sellprice {
   my ($self) = @_;
 
   return 0 unless $self->qty > 0 and $self->part->sellprice > 0;
@@ -26,4 +23,11 @@ sub linetotal_lastcost {
   return $self->qty * $self->part->lastcost / ( $self->part->price_factor_id ? $self->part->price_factor->factor : 1 );
 }
 
+sub linetotal_weight {
+  my ($self) = @_;
+
+  return 0 unless $self->qty > 0 and ($self->part->weight||0) > 0;
+  return $self->qty * $self->part->weight;
+}
+
 1;