Merge branch 'rb-wiederkehrende-rechnungen' into 263
[kivitendo-erp.git] / SL / DB / Unit.pm
1 # This file has been auto-generated only because it didn't exist.
2 # Feel free to modify it at will; it will not be overwritten automatically.
3
4 package SL::DB::Unit;
5
6 use strict;
7
8 use SL::DB::MetaSetup::Unit;
9
10 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
11 __PACKAGE__->meta->make_manager_class;
12
13 __PACKAGE__->meta->add_relationships(
14   base => {
15     type         => 'one to one',
16     class        => 'SL::DB::Unit',
17     column_map   => { base_unit => 'name' },
18   },
19 );
20
21 __PACKAGE__->meta->initialize;
22
23 #methods
24
25 sub unit_class {
26   my $self   = shift;
27
28   return $self if !$self->base_unit || $self->name eq $self->base_unit;
29   return $self->base->unit_class;
30 }
31
32 sub convertible_units {
33   my $self = shift;
34   return [
35     sort { $a->sortkey <=> $b->sortkey }
36     grep { $_->unit_class->name eq $self->unit_class->name }
37     @{ SL::DB::Manager::Unit->get_all }
38   ];
39 }
40
41 sub base_factor {
42   my ($self) = @_;
43
44   if (!defined $self->{__base_factor}) {
45     $self->{__base_factor} = !$self->base_unit || !$self->factor || ($self->name eq $self->base_unit) ? 1 : $self->factor * $self->base->base_factor;
46   }
47
48   return $self->{__base_factor};
49 }
50
51 sub convert_to {
52   my ($self, $qty, $other_unit) = @_;
53
54   my $my_base_factor    = $self->base_factor       || 1;
55   my $other_base_factor = $other_unit->base_factor || 1;
56
57   return $qty * $my_base_factor / $other_base_factor;
58 }
59
60 1;