Revision 8a286496
Von Bernd Bleßmann vor fast 4 Jahren hinzugefügt
| SL/BackgroundJob/ConvertTimeRecordings.pm | ||
|---|---|---|
|
|
||
|
use DateTime;
|
||
|
use List::Util qw(any);
|
||
|
use Try::Tiny;
|
||
|
|
||
|
sub create_job {
|
||
|
$_[0]->create_standard_job('7 3 1 * *'); # every first day of month at 03:07
|
||
| ... | ... | |
|
# TODO get/set see above
|
||
|
my $from_date;
|
||
|
my $to_date;
|
||
|
# handle errors with a catch handler
|
||
|
try {
|
||
|
$from_date = DateTime->from_kivitendo($self->data->{from_date}) if $self->data->{from_date};
|
||
|
$to_date = DateTime->from_kivitendo($self->data->{to_date}) if $self->data->{to_date};
|
||
|
} catch {
|
||
|
die "Cannot convert date from string $self->data->{from_date} $self->data->{to_date}\n Details :\n $_"; # not $@
|
||
|
};
|
||
|
$from_date = DateTime->from_kivitendo($self->data->{from_date}) if $self->data->{from_date};
|
||
|
$to_date = DateTime->from_kivitendo($self->data->{to_date}) if $self->data->{to_date};
|
||
|
$from_date ||= DateTime->new( day => 1, month => DateTime->today_local->month, year => DateTime->today_local->year)->subtract(months => 1);
|
||
|
$to_date ||= DateTime->last_day_of_month(month => DateTime->today_local->month, year => DateTime->today_local->year)->subtract(months => 1);
|
||
|
|
||
| SL/InstallationCheck.pm | ||
|---|---|---|
|
{ name => "Text::CSV_XS", version => '0.23', url => "http://search.cpan.org/~hmbrand/", debian => 'libtext-csv-xs-perl' },
|
||
|
{ name => "Text::Iconv", version => '1.2', url => "http://search.cpan.org/~mpiotr/", debian => 'libtext-iconv-perl' },
|
||
|
{ name => "Text::Unidecode", url => "http://search.cpan.org/~sburke/", debian => 'libtext-unidecode-perl' },
|
||
|
{ name => "Try::Tiny", url => "https://metacpan.org/release/Try-Tiny", debian => 'libtry-tiny-perl' },
|
||
|
{ name => "URI", version => '1.35', url => "http://search.cpan.org/~gaas/", debian => 'liburi-perl' },
|
||
|
{ name => "XML::LibXML", url => "https://metacpan.org/pod/XML::LibXML", debian => 'libxml-libxml-perl' },
|
||
|
{ name => "XML::Writer", version => '0.602', url => "http://search.cpan.org/~josephw/", debian => 'libxml-writer-perl' },
|
||
Auch abrufbar als: Unified diff
Revert "CTR: Benutzereingabe in data mit Try::Tiny auffangen"
DateTime->from_kivitindeo wirft keine Ausnahme, daher ist hier try/catch
ohne Funktion.
This reverts commit a6291ceb5b16c6faf4e24c6d1a5516f06df58e22.