Revision f042650d
Von Jan Büren vor fast 5 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
|
$config = SL::YAML::Load($::form->{periodic_invoices_config}) if $::form->{periodic_invoices_config};
|
||
|
|
||
|
if ('HASH' ne ref $config) {
|
||
|
my $lang_id = $::form->{language_id};
|
||
|
$config = { periodicity => 'm',
|
||
|
order_value_periodicity => 'p', # = same as periodicity
|
||
|
start_date_as_date => $::form->{transdate} || $::form->current_date,
|
||
|
extend_automatically_by => 12,
|
||
|
active => 1,
|
||
|
email_subject => GenericTranslations->get(language_id => $lang_id,
|
||
|
translation_type =>"preset_text_periodic_invoices_email_subject"),
|
||
|
email_body => GenericTranslations->get(language_id => $lang_id,
|
||
|
translation_type =>"preset_text_periodic_invoices_email_body"),
|
||
|
};
|
||
|
}
|
||
|
# for older configs, replace email preset text if not yet set.
|
||
|
$config->{email_subject} ||= GenericTranslations->get(language_id => $::form->{lanuage_id},
|
||
|
translation_type =>"preset_text_periodic_invoices_email_subject");
|
||
|
$config->{email_body} ||= GenericTranslations->get(language_id => $::form->{lanuage_id},
|
||
|
translation_type =>"preset_text_periodic_invoices_email_body");
|
||
|
|
||
|
$config->{periodicity} = 'm' if none { $_ eq $config->{periodicity} } @SL::DB::PeriodicInvoicesConfig::PERIODICITIES;
|
||
|
$config->{order_value_periodicity} = 'p' if none { $_ eq $config->{order_value_periodicity} } ('p', @SL::DB::PeriodicInvoicesConfig::ORDER_VALUE_PERIODICITIES);
|
||
Auch abrufbar als: Unified diff
Wiederkehrende Rechnungen: vorbelegte E-Mail-Texte setzen falls leer
Vorher wurde nur geprüft, ob die Konfiguration schon gesetzt wurde.
Sollte ein Kunde im Nachhinein auf E-Mail-Versand umstelle ist
das Verhalten jetzt komfortabler