Revision dac5f3de
Von Tamino Steinert vor 4 Monaten hinzugefügt
| SL/DB/Manager/PeriodicInvoicesConfig.pm | ||
|---|---|---|
| 1 |
package SL::DB::Manager::PeriodicInvoicesConfig; |
|
| 2 |
|
|
| 3 |
use strict; |
|
| 4 |
|
|
| 5 |
use parent qw(SL::DB::Helper::Manager); |
|
| 6 |
|
|
| 7 |
sub object_class { 'SL::DB::PeriodicInvoicesConfig' }
|
|
| 8 |
|
|
| 9 |
__PACKAGE__->make_manager_methods; |
|
| 10 |
|
|
| 11 |
1; |
|
| SL/DB/PeriodicInvoicesConfig.pm | ||
|---|---|---|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 | 5 |
use SL::DB::MetaSetup::PeriodicInvoicesConfig; |
| 6 |
use SL::DB::Manager::PeriodicInvoicesConfig; |
|
| 6 | 7 |
|
| 7 | 8 |
use List::Util qw(max min); |
| 8 | 9 |
|
| 9 | 10 |
__PACKAGE__->meta->initialize; |
| 10 | 11 |
|
| 11 |
# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all. |
|
| 12 |
__PACKAGE__->meta->make_manager_class; |
|
| 13 |
|
|
| 14 | 12 |
our %PERIOD_LENGTHS = ( o => 0, m => 1, q => 3, b => 6, y => 12 ); |
| 15 | 13 |
our %ORDER_VALUE_PERIOD_LENGTHS = ( %PERIOD_LENGTHS, 2 => 24, 3 => 36, 4 => 48, 5 => 60 ); |
| 16 | 14 |
our @PERIODICITIES = keys %PERIOD_LENGTHS; |
Auch abrufbar als: Unified diff
S:D:PeriodicInvoicesConfig: Separate Manager Klasse