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) };

}

}

}