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