View | Details | Raw Unified | Return to bug 8418
Collapse All | Expand All

(-)a/Koha/Calendar.pm (-3 / +2 lines)
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) ) {
Lines 208-214 sub hours_between { Link Here
208
sub _mockinit {
208
sub _mockinit {
209
    my $self = shift;
209
    my $self = shift;
210
    $self->{weekly_closed_days} = [ 1, 0, 0, 0, 0, 0, 0 ];    # Sunday only
210
    $self->{weekly_closed_days} = [ 1, 0, 0, 0, 0, 0, 0 ];    # Sunday only
211
    $self->{day_month_closed_days} = { 6 => { 16 => 1, } };
211
    $self->{day_month_closed_days} = { 16 => { 6 => 1, } };
212
    my $dates = [];
212
    my $dates = [];
213
    $self->{exception_holidays} =
213
    $self->{exception_holidays} =
214
      DateTime::Set->from_datetimes( dates => $dates );
214
      DateTime::Set->from_datetimes( dates => $dates );
215
- 

Return to bug 8418