|
Lines 246-256
sub get_push_amt {
Link Here
|
| 246 |
unless exists $self->{days_mode}; |
246 |
unless exists $self->{days_mode}; |
| 247 |
|
247 |
|
| 248 |
my $dow = $base_date->day_of_week; |
248 |
my $dow = $base_date->day_of_week; |
|
|
249 |
# Representation fix |
| 250 |
# DateTime object dow (1-7) where Monday is 1 |
| 251 |
# Arrays are 0-based where 0 = Sunday, not 7. |
| 252 |
if ( $dow == 7 ) { |
| 253 |
$dow = 0; |
| 254 |
} |
| 255 |
|
| 249 |
return ( |
256 |
return ( |
| 250 |
# We're using Dayweek useDaysMode option |
257 |
# We're using Dayweek useDaysMode option |
| 251 |
$self->{days_mode} eq 'Dayweek' && |
258 |
$self->{days_mode} eq 'Dayweek' && |
| 252 |
# It's not a permanently closed day |
259 |
# It's not a permanently closed day |
| 253 |
!$self->{weekly_closed_days}->[$dow % 7] |
260 |
!$self->{weekly_closed_days}->[$dow] |
| 254 |
) ? 7 : 1; |
261 |
) ? 7 : 1; |
| 255 |
} |
262 |
} |
| 256 |
|
263 |
|
| 257 |
- |
|
|