X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b81ceec0ae27fd58adbb724ad99a6ee48a74af35..1904d8c63b2ab4172b36b117ec476c81c690ca86:/SL/DB/Helper/RecordItem.pm

diff --git a/SL/DB/Helper/RecordItem.pm b/SL/DB/Helper/RecordItem.pm
new file mode 100644
index 000000000..020128db1
--- /dev/null
+++ b/SL/DB/Helper/RecordItem.pm
@@ -0,0 +1,17 @@
+package SL::DB::Helper::RecordItem;
+
+use strict;
+use parent qw(Exporter);
+
+our @EXPORT = qw(base_sellprice unit_multiplier);
+
+sub base_sellprice {
+  $_[0]->sellprice / $_[0]->unit_multiplier;
+}
+
+sub unit_multiplier {
+  $_[0]->unit_obj->convert_to(1, $_[0]->part->unit_obj)
+}
+
+
+1;