|
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 |
- |
|
|