Revision 65b2387a
Von Moritz Bunkus vor mehr als 5 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 44 | 44 |
use SL::IS; |
| 45 | 45 |
use SL::MoreCommon qw(ary_diff restore_form save_form); |
| 46 | 46 |
use SL::ReportGenerator; |
| 47 |
use SL::YAML; |
|
| 47 | 48 |
use List::MoreUtils qw(uniq any none); |
| 48 | 49 |
use List::Util qw(min max reduce sum); |
| 49 | 50 |
use Data::Dumper; |
| ... | ... | |
| 614 | 615 |
$form->{periodic_invoices_status} = $locale->text('not configured');
|
| 615 | 616 |
|
| 616 | 617 |
} else {
|
| 617 |
my $config = YAML::Load($form->{periodic_invoices_config});
|
|
| 618 |
my $config = SL::YAML::Load($form->{periodic_invoices_config});
|
|
| 618 | 619 |
$form->{periodic_invoices_status} = $config->{active} ? $locale->text('active') : $locale->text('inactive');
|
| 619 | 620 |
} |
| 620 | 621 |
} |
| ... | ... | |
| 2171 | 2172 |
check_oe_access(); |
| 2172 | 2173 |
|
| 2173 | 2174 |
my $config; |
| 2174 |
$config = YAML::Load($::form->{periodic_invoices_config}) if $::form->{periodic_invoices_config};
|
|
| 2175 |
$config = SL::YAML::Load($::form->{periodic_invoices_config}) if $::form->{periodic_invoices_config};
|
|
| 2175 | 2176 |
|
| 2176 | 2177 |
if ('HASH' ne ref $config) {
|
| 2177 | 2178 |
my $lang_id = $::form->{language_id};
|
| ... | ... | |
| 2237 | 2238 |
email_body => $::form->{email_body},
|
| 2238 | 2239 |
}; |
| 2239 | 2240 |
|
| 2240 |
$::form->{periodic_invoices_config} = YAML::Dump($config);
|
|
| 2241 |
$::form->{periodic_invoices_config} = SL::YAML::Dump($config);
|
|
| 2241 | 2242 |
|
| 2242 | 2243 |
$::form->{title} = $::locale->text('Edit the configuration for periodic invoices');
|
| 2243 | 2244 |
$::form->header; |
Auch abrufbar als: Unified diff
Module: gebundletes YAML durch dünnen Wrapper über YAML::XS & YAML ersetzt