Revision f49ad7f1
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 1963 | 1963 |
$config = YAML::Load($::form->{periodic_invoices_config}) if $::form->{periodic_invoices_config};
|
| 1964 | 1964 |
|
| 1965 | 1965 |
if ('HASH' ne ref $config) {
|
| 1966 |
$config = {
|
|
| 1967 |
periodicity => 'm',
|
|
| 1968 |
start_date => $::form->{transdate},
|
|
| 1969 |
active => 1,
|
|
| 1970 |
}; |
|
| 1966 |
$config = { periodicity => 'y',
|
|
| 1967 |
start_date_as_date => $::form->{transdate},
|
|
| 1968 |
extend_automatically_by => 12,
|
|
| 1969 |
active => 1,
|
|
| 1970 |
};
|
|
| 1971 | 1971 |
} |
| 1972 | 1972 |
|
| 1973 | 1973 |
$config->{periodicity} = 'm' if none { $_ eq $config->{periodicity} } qw(m q y);
|
| ... | ... | |
| 1992 | 1992 |
|
| 1993 | 1993 |
check_oe_access(); |
| 1994 | 1994 |
|
| 1995 |
$::form->isblank('start_date', $::locale->text('The start date is missing.'));
|
|
| 1996 |
|
|
| 1997 |
my $config = { active => $::form->{active} ? 1 : 0,
|
|
| 1998 |
periodicity => (any { $_ eq $::form->{periodicity} } qw(m q y)) ? $::form->{periodicity} : 'm',
|
|
| 1999 |
start_date => $::form->{start_date},
|
|
| 2000 |
print => $::form->{print} ? 1 : 0,
|
|
| 2001 |
printer_id => $::form->{print} ? $::form->{printer_id} * 1 : undef,
|
|
| 2002 |
copies => $::form->{copies} * 1 ? $::form->{copies} : 1,
|
|
| 2003 |
ar_chart_id => $::form->{ar_chart_id} * 1,
|
|
| 1995 |
$::form->isblank('start_date_as_date', $::locale->text('The start date is missing.'));
|
|
| 1996 |
|
|
| 1997 |
my $config = { active => $::form->{active} ? 1 : 0,
|
|
| 1998 |
terminated => $::form->{terminated} ? 1 : 0,
|
|
| 1999 |
periodicity => (any { $_ eq $::form->{periodicity} } qw(m q y)) ? $::form->{periodicity} : 'm',
|
|
| 2000 |
start_date_as_date => $::form->{start_date_as_date},
|
|
| 2001 |
end_date_as_date => $::form->{end_date_as_date},
|
|
| 2002 |
print => $::form->{print} ? 1 : 0,
|
|
| 2003 |
printer_id => $::form->{print} ? $::form->{printer_id} * 1 : undef,
|
|
| 2004 |
copies => $::form->{copies} * 1 ? $::form->{copies} : 1,
|
|
| 2005 |
extend_automatically_by => $::form->{extend_automatically_by} * 1 || undef,
|
|
| 2006 |
ar_chart_id => $::form->{ar_chart_id} * 1,
|
|
| 2004 | 2007 |
}; |
| 2005 | 2008 |
|
| 2006 | 2009 |
$::form->{periodic_invoices_config} = YAML::Dump($config);
|
Auch abrufbar als: Unified diff
Felder end_date, terminated, extend_automatically_by ergänzt