|
Lines 93-99
sub addDate {
Link Here
|
| 93 |
Readonly::Scalar my $return_by_hour => 10; |
93 |
Readonly::Scalar my $return_by_hour => 10; |
| 94 |
my $day_dur = DateTime::Duration->new( days => 1 ); |
94 |
my $day_dur = DateTime::Duration->new( days => 1 ); |
| 95 |
if ( $add_duration->is_negative() ) { |
95 |
if ( $add_duration->is_negative() ) { |
| 96 |
$day_dur->inverse(); |
96 |
$day_dur = DateTime::Duration->new( days => -1 ); |
| 97 |
} |
97 |
} |
| 98 |
if ( $days_mode eq 'Datedue' ) { |
98 |
if ( $days_mode eq 'Datedue' ) { |
| 99 |
|
99 |
|
| 100 |
- |
|
|