projekt kivitendo

package OE;

use List::Util qw(max first);

use SL::AM;

use SL::Common;

use SL::TransNumber;

use SL::Util qw(trim);

use SL::DB;

use Text::ParseWords;

use strict;

  return if !$params{oe_id};

  return if 'HASH' ne ref $config;

  my $obj  = SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $params{oe_id})

    if ($config_obj) {

      my $config = { map { $_ => $config_obj->$_ } qw(active terminated periodicity order_value_periodicity start_date_as_date end_date_as_date first_billing_date_as_date extend_automatically_by ar_chart_id

                                                      print printer_id copies direct_debit send_email email_recipient_contact_id email_recipient_address email_sender email_subject email_body) };

    }

  }

}