Kommentar zur Namensgebung der PDF-Dateien
[kivitendo-erp.git] / SL / DB / Unit.pm
1 package SL::DB::Unit;
2
3 use strict;
4
5 use SL::DB::MetaSetup::Unit;
6 use SL::DB::Manager::Unit;
7
8 __PACKAGE__->meta->add_relationships(
9   base => {
10     type         => 'one to one',
11     class        => 'SL::DB::Unit',
12     column_map   => { base_unit => 'name' },
13   },
14 );
15
16 __PACKAGE__->meta->initialize;
17
18 #methods
19
20 sub unit_class {
21   my $self   = shift;
22
23   return $self if !$self->base_unit || $self->name eq $self->base_unit;
24   return $self->base->unit_class;
25 }
26
27 sub convertible_units {
28   my $self = shift;
29   return [
30     sort { $a->sortkey <=> $b->sortkey }
31     grep { $_->unit_class->name eq $self->unit_class->name }
32     @{ SL::DB::Manager::Unit->get_all }
33   ];
34 }
35
36 sub base_factor {
37   my ($self) = @_;
38
39   if (!defined $self->{__base_factor}) {
40     $self->{__base_factor} = !$self->base_unit || !$self->factor || ($self->name eq $self->base_unit) ? 1 : $self->factor * $self->base->base_factor;
41   }
42
43   return $self->{__base_factor};
44 }
45
46 sub convert_to {
47   my ($self, $qty, $other_unit) = @_;
48
49   my $my_base_factor    = $self->base_factor       || 1;
50   my $other_base_factor = $other_unit->base_factor || 1;
51
52   return $qty * $my_base_factor / $other_base_factor;
53 }
54
55 1;