balance_startdate_method_options nach AccountingPeriod Helper

verlagert, wird auch für YearEndTransactions benötigt.

diff --git a/SL/Controller/ClientConfig.pm b/SL/Controller/ClientConfig.pm
index 59fe4f555fbaaffb7f985839f02162b89887d416..3d5b7704a06c4800dfec301c664718c2dc1593a3 100644 (file)
--- a/SL/Controller/ClientConfig.pm
+++ b/SL/Controller/ClientConfig.pm
@@ -18,6 +18,7 @@ use SL::Locale::String qw(t8);
 use SL::PriceSource::ALL;
 use SL::Template;
 use SL::Controller::TopQuickSearch;
 use SL::PriceSource::ALL;
 use SL::Template;
 use SL::Controller::TopQuickSearch;

+use SL::DB::Helper::AccountingPeriod qw(get_balance_startdate_method_options);

 use SL::Helper::ShippedQty;
 
 __PACKAGE__->run_before('check_auth');
 use SL::Helper::ShippedQty;
 
 __PACKAGE__->run_before('check_auth');


@@ -188,11 +189,7 @@ sub init_profit_options {
 }
 
 sub init_balance_startdate_method_options {
 }
 
 sub init_balance_startdate_method_options {

-  [ { title => t8("After closed period"),                       value => "closed_to"                   },
-    { title => t8("Start of year"),                             value => "start_of_year"               },
-    { title => t8("All transactions"),                          value => "all_transactions"            },
-    { title => t8("Last opening balance or all transactions"),  value => "last_ob_or_all_transactions" },
-    { title => t8("Last opening balance or start of year"),     value => "last_ob_or_start_of_year"    }, ]
+  return SL::DB::Helper::AccountingPeriod::get_balance_startdate_method_options;

 }
 
 sub init_all_price_sources {
 }
 
 sub init_all_price_sources {

diff --git a/SL/DB/Helper/AccountingPeriod.pm b/SL/DB/Helper/AccountingPeriod.pm
index 1bd0806f7d0a10ac584ce9966dac179e403a4223..e29d0e5ed4d9e8d49b1bcdb249c3ef638e5a58e6 100644 (file)
--- a/SL/DB/Helper/AccountingPeriod.pm
+++ b/SL/DB/Helper/AccountingPeriod.pm
@@ -1,13 +1,24 @@
 package SL::DB::Helper::AccountingPeriod;
 
 use strict;
 package SL::DB::Helper::AccountingPeriod;
 
 use strict;

+use SL::Locale::String qw(t8);

 
 use parent qw(Exporter);
 use SL::DBUtils;
 
 use parent qw(Exporter);
 use SL::DBUtils;

-our @EXPORT = qw(get_balance_starting_date);
+our @EXPORT = qw(get_balance_starting_date get_balance_startdate_method_options);

 
 use Carp;
 
 
 use Carp;
 

+sub get_balance_startdate_method_options {
+  [
+    { title => t8("After closed period"),                       value => "closed_to"                   },
+    { title => t8("Start of year"),                             value => "start_of_year"               },
+    { title => t8("All transactions"),                          value => "all_transactions"            },
+    { title => t8("Last opening balance or all transactions"),  value => "last_ob_or_all_transactions" },
+    { title => t8("Last opening balance or start of year"),     value => "last_ob_or_start_of_year"    },
+  ]
+}
+

 sub get_balance_starting_date {
   my ($self,$asofdate) = @_;
 
 sub get_balance_starting_date {
   my ($self,$asofdate) = @_;
 


@@ -106,6 +117,11 @@ SL::DB::Helper::AccountingPeriod - Helper functions for calculating dates relati
 
 =over 4
 
 
 =over 4
 

+=item C<get_balance_startdate_method_options>
+
+Returns an arrayref of translated options for determining the startdate of a
+balance period or the yearend period. To be used as the options for a dropdown.
+

 =item C<get_balance_starting_date $date>
 
 Given a date this method calculates and returns the starting date of the
 =item C<get_balance_starting_date $date>
 
 Given a date this method calculates and returns the starting date of the