Neue Rechte für Anzeige der Debitoren- und Kreditorenbuchungen
[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 use SL::DB::Helper::ActsAsList;
8
9 __PACKAGE__->meta->add_relationships(
10   base => {
11     type         => 'many to one',
12     class        => 'SL::DB::Unit',
13     column_map   => { base_unit => 'name' },
14   },
15 );
16
17 __PACKAGE__->meta->initialize;
18
19 #methods
20
21 sub unit_class {
22   my $self   = shift;
23
24   return $self if !$self->base_unit || $self->name eq $self->base_unit;
25   return $self->base->unit_class;
26 }
27
28 sub convertible_units {
29   my $self = shift;
30   return [
31     sort { $a->sortkey <=> $b->sortkey }
32     grep { $_->unit_class->name eq $self->unit_class->name }
33     @{ SL::DB::Manager::Unit->get_all }
34   ];
35 }
36
37 sub base_factor {
38   my ($self) = @_;
39
40   if (!defined $self->{__base_factor}) {
41     $self->{__base_factor} = !$self->base_unit || !$self->factor || ($self->name eq $self->base_unit) ? 1 : $self->factor * $self->base->base_factor;
42   }
43
44   return $self->{__base_factor};
45 }
46
47 sub convert_to {
48   my ($self, $qty, $other_unit) = @_;
49
50   my $my_base_factor    = $self->base_factor       || 1;
51   my $other_base_factor = $other_unit->base_factor || 1;
52
53   return $qty * $my_base_factor / $other_base_factor;
54 }
55
56 1;