Lines 65-71
sub _init {
Link Here
|
65 |
} |
65 |
} |
66 |
$self->{exception_holidays} = |
66 |
$self->{exception_holidays} = |
67 |
DateTime::Set->from_datetimes( dates => $dates ); |
67 |
DateTime::Set->from_datetimes( dates => $dates ); |
68 |
$special->execute( $branch, 1 ); |
68 |
$special->execute( $branch, 0 ); |
69 |
$dates = []; |
69 |
$dates = []; |
70 |
while ( my ( $day, $month, $year, $title, $description ) = |
70 |
while ( my ( $day, $month, $year, $title, $description ) = |
71 |
$special->fetchrow ) { |
71 |
$special->fetchrow ) { |
Lines 150-156
sub is_holiday {
Link Here
|
150 |
$dt->truncate( to => 'day' ); |
150 |
$dt->truncate( to => 'day' ); |
151 |
my $day = $dt->day; |
151 |
my $day = $dt->day; |
152 |
my $month = $dt->month; |
152 |
my $month = $dt->month; |
153 |
if ( exists $self->{day_month_closed_days}->{$month}->{$day} ) { |
153 |
if ( exists $self->{day_month_closed_days}->{$day}->{$month} ) { |
154 |
return 1; |
154 |
return 1; |
155 |
} |
155 |
} |
156 |
if ( $self->{exception_holidays}->contains($dt) ) { |
156 |
if ( $self->{exception_holidays}->contains($dt) ) { |
157 |
- |
|
|