RecordItem: unit_muiltiplier Methode

[mfinanz.git] / SL / DB / Helper / RecordItem.pm

diff --git a/SL/DB/Helper/RecordItem.pm b/SL/DB/Helper/RecordItem.pm
new file mode 100644 (file)
index 0000000..020128d
--- /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;