From c767a7e827c14b8d016e1973ca8baa4e82f66557 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 16 Oct 2013 13:55:22 +0200 Subject: [PATCH] Bug 11061: Koha::Calendar::_mock_init is unused Bug 9209 removes the only occurrence to Koha::Calendar::_mock_init The routine can be removed. Test plan: prove t/Calendar.t Signed-off-by: Tomas Cohen Arazi I left that routine because I planned to do a follow-up for that so the Calendar patch series was pushed soon. Nice catch Jonathan, works as expected. --- Koha/Calendar.pm | 29 ----------------------------- 1 file changed, 29 deletions(-) diff --git a/Koha/Calendar.pm b/Koha/Calendar.pm index 6a12530..b52ae5f 100644 --- a/Koha/Calendar.pm +++ b/Koha/Calendar.pm @@ -18,10 +18,6 @@ sub new { my $o = lc $o_name; $self->{$o} = $options{$o_name}; } - if ( exists $options{TEST_MODE} ) { - $self->_mockinit(); - return $self; - } if ( !defined $self->{branchcode} ) { croak 'No branchcode argument passed to Koha::Calendar->new'; } @@ -297,31 +293,6 @@ sub hours_between { } -sub _mockinit { - my $self = shift; - $self->{weekly_closed_days} = [ 1, 0, 0, 0, 0, 0, 0 ]; # Sunday only - $self->{day_month_closed_days} = { 6 => { 16 => 1, } }; - my $dates = []; - $self->{exception_holidays} = - DateTime::Set->from_datetimes( dates => $dates ); - my $special = DateTime->new( - year => 2011, - month => 6, - day => 1, - time_zone => 'Europe/London', - ); - push @{$dates}, $special; - $self->{single_holidays} = DateTime::Set->from_datetimes( dates => $dates ); - - # if not defined, days_mode defaults to 'Calendar' - if ( !defined($self->{days_mode}) ) { - $self->{days_mode} = 'Calendar'; - } - - $self->{test} = 1; - return; -} - sub set_daysmode { my ( $self, $mode ) = @_; -- 1.8.3.2