Pflichtenheft -> Angebot: Langtext setzen
[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   my $all_units = scalar(@_) && (ref($_[0]) eq 'ARRAY') ? $_[0] : \@_;
31   $all_units    = SL::DB::Manager::Unit->get_all if !@{ $all_units };
32   return [
33     sort { $a->sortkey <=> $b->sortkey }
34     grep { $_->unit_class->name eq $self->unit_class->name }
35     @{ $all_units }
36   ];
37 }
38
39 sub base_factor {
40   my ($self) = @_;
41
42   if (!defined $self->{__base_factor}) {
43     $self->{__base_factor} = !$self->base_unit || !$self->factor || ($self->name eq $self->base_unit) ? 1 : $self->factor * $self->base->base_factor;
44   }
45
46   return $self->{__base_factor};
47 }
48
49 sub convert_to {
50   my ($self, $qty, $other_unit) = @_;
51
52   my $my_base_factor    = $self->base_factor       || 1;
53   my $other_base_factor = $other_unit->base_factor || 1;
54
55   return $qty * $my_base_factor / $other_base_factor;
56 }
57
58 1;