Revision a328c2e2
Von Bernd Bleßmann vor mehr als 6 Jahren hinzugefügt
| SL/Controller/Order.pm | ||
|---|---|---|
|
|
||
|
$::form->isblank('start_date_as_date', $::locale->text('The start date is missing.'));
|
||
|
|
||
|
my $config = { active => $::form->{active} ? 1 : 0,
|
||
|
terminated => $::form->{terminated} ? 1 : 0,
|
||
|
direct_debit => $::form->{direct_debit} ? 1 : 0,
|
||
|
periodicity => (any { $_ eq $::form->{periodicity} } @SL::DB::PeriodicInvoicesConfig::PERIODICITIES) ? $::form->{periodicity} : 'm',
|
||
|
order_value_periodicity => (any { $_ eq $::form->{order_value_periodicity} } ('p', @SL::DB::PeriodicInvoicesConfig::ORDER_VALUE_PERIODICITIES)) ? $::form->{order_value_periodicity} : 'p',
|
||
|
start_date_as_date => $::form->{start_date_as_date},
|
||
|
end_date_as_date => $::form->{end_date_as_date},
|
||
|
my $config = { active => $::form->{active} ? 1 : 0,
|
||
|
terminated => $::form->{terminated} ? 1 : 0,
|
||
|
direct_debit => $::form->{direct_debit} ? 1 : 0,
|
||
|
periodicity => (any { $_ eq $::form->{periodicity} } @SL::DB::PeriodicInvoicesConfig::PERIODICITIES) ? $::form->{periodicity} : 'm',
|
||
|
order_value_periodicity => (any { $_ eq $::form->{order_value_periodicity} } ('p', @SL::DB::PeriodicInvoicesConfig::ORDER_VALUE_PERIODICITIES)) ? $::form->{order_value_periodicity} : 'p',
|
||
|
start_date_as_date => $::form->{start_date_as_date},
|
||
|
end_date_as_date => $::form->{end_date_as_date},
|
||
|
first_billing_date_as_date => $::form->{first_billing_date_as_date},
|
||
|
print => $::form->{print} ? 1 : 0,
|
||
|
printer_id => $::form->{print} ? $::form->{printer_id} * 1 : undef,
|
||
|
copies => $::form->{copies} * 1 ? $::form->{copies} : 1,
|
||
|
extend_automatically_by => $::form->{extend_automatically_by} * 1 || undef,
|
||
|
ar_chart_id => $::form->{ar_chart_id} * 1,
|
||
|
print => $::form->{print} ? 1 : 0,
|
||
|
printer_id => $::form->{print} ? $::form->{printer_id} * 1 : undef,
|
||
|
copies => $::form->{copies} * 1 ? $::form->{copies} : 1,
|
||
|
extend_automatically_by => $::form->{extend_automatically_by} * 1 || undef,
|
||
|
ar_chart_id => $::form->{ar_chart_id} * 1,
|
||
|
send_email => $::form->{send_email} ? 1 : 0,
|
||
|
email_recipient_contact_id => $::form->{email_recipient_contact_id} * 1 || undef,
|
||
|
email_recipient_address => $::form->{email_recipient_address},
|
||
Auch abrufbar als: Unified diff
Auftrags-Controller: Kosmetik, alignement