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

(-)a/Koha/Calendar.pm (-30 lines)
Lines 18-27 sub new { Link Here
18
        my $o = lc $o_name;
18
        my $o = lc $o_name;
19
        $self->{$o} = $options{$o_name};
19
        $self->{$o} = $options{$o_name};
20
    }
20
    }
21
    if ( exists $options{TEST_MODE} ) {
22
        $self->_mockinit();
23
        return $self;
24
    }
25
    if ( !defined $self->{branchcode} ) {
21
    if ( !defined $self->{branchcode} ) {
26
        croak 'No branchcode argument passed to Koha::Calendar->new';
22
        croak 'No branchcode argument passed to Koha::Calendar->new';
27
    }
23
    }
Lines 297-327 sub hours_between { Link Here
297
293
298
}
294
}
299
295
300
sub _mockinit {
301
    my $self = shift;
302
    $self->{weekly_closed_days} = [ 1, 0, 0, 0, 0, 0, 0 ];    # Sunday only
303
    $self->{day_month_closed_days} = { 6 => { 16 => 1, } };
304
    my $dates = [];
305
    $self->{exception_holidays} =
306
      DateTime::Set->from_datetimes( dates => $dates );
307
    my $special = DateTime->new(
308
        year      => 2011,
309
        month     => 6,
310
        day       => 1,
311
        time_zone => 'Europe/London',
312
    );
313
    push @{$dates}, $special;
314
    $self->{single_holidays} = DateTime::Set->from_datetimes( dates => $dates );
315
316
    # if not defined, days_mode defaults to 'Calendar'
317
    if ( !defined($self->{days_mode}) ) {
318
        $self->{days_mode} = 'Calendar';
319
    }
320
321
    $self->{test} = 1;
322
    return;
323
}
324
325
sub set_daysmode {
296
sub set_daysmode {
326
    my ( $self, $mode ) = @_;
297
    my ( $self, $mode ) = @_;
327
298
328
- 

Return to bug 11061