Attachment #105937 for bug #25723

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




sub exception_holidays {
    my ($self) = @_;

    return $self->_holidays('exception');
}

sub _holidays {
    my ( $self, $type ) = @_;

    die "Unknown type, only 'exception' or 'single' is supported"
        unless $type eq 'exception' or $type eq 'single';

    my $cache    = Koha::Caches->get_instance();
    my $holidays = $cache->get_from_cache("${type}_holidays");

    # Populate the cache is necessary
    unless ($holidays) {
        my $dbh = C4::Context->dbh;
        $holidays = {};

        # Push holidays for each branch
        my $holidays_sth = $dbh->prepare(
            'SELECT day, month, year, branchcode FROM special_holidays WHERE isexception = ?'
        );
        $holidays_sth->execute($type eq 'exception' ? 1 : 0);
        my $dates = [];
        while ( my ( $day, $month, $year, $branch ) =
            $holidays_sth->fetchrow )
        {
            my $datestring =
                sprintf( "%04d", $year )
              . sprintf( "%02d", $month )
              . sprintf( "%02d", $day );

            $holidays->{$branch}->{$datestring} = 1;
        }
        $cache->set_in_cache( "${type}_holidays", $holidays,
            { expiry => 76800 } );
    }

    return $holidays->{ $self->{branchcode} } // {};
}

sub is_exception_holiday {

sub single_holidays {
    my ($self) = @_;

    return $self->_holidays('single');
    my $single_holidays = $cache->get_from_cache('single_holidays');

    # $single_holidays looks like:
    # {
    #   CPL =>  [
    #        [0] 20131122,
    #         ...
    #    ],
    #   ...
    # }

    # Populate the cache if necessary
    unless ($single_holidays) {
        my $dbh = C4::Context->dbh;
        $single_holidays = {};

        # Push holidays for each branch
        my $single_holidays_sth = $dbh->prepare(
'SELECT day, month, year, branchcode FROM special_holidays WHERE isexception = 0'
        );
        $single_holidays_sth->execute();

        while ( my ( $day, $month, $year, $branch ) =
            $single_holidays_sth->fetchrow )
        {
            my $datestring =
                sprintf( "%04d", $year )
              . sprintf( "%02d", $month )
              . sprintf( "%02d", $day );

            $single_holidays->{$branch}->{$datestring} = 1;
        }
        $cache->set_in_cache( 'single_holidays', $single_holidays,
            { expiry => 76800 } );
    }

    return $single_holidays->{ $self->{branchcode} } // {};
}

sub is_single_holiday {
- 

Return to bug 25723

Lines 54-88 sub _init { Link Here

(-)a/Koha/Calendar.pm (-50 / +21 lines)
54	sub exception_holidays {	54	sub exception_holidays {
55	my ($self) = @_;	55	my ($self) = @_;
56		56
57	my $cache = Koha::Caches->get_instance();	57	return $self->_holidays('exception');
58	my $exception_holidays = $cache->get_from_cache('exception_holidays');	58	}
		59
		60	sub _holidays {
		61	my ( $self, $type ) = @_;
		62
		63	die "Unknown type, only 'exception' or 'single' is supported"
		64	unless $type eq 'exception' or $type eq 'single';
		65
		66	my $cache = Koha::Caches->get_instance();
		67	my $holidays = $cache->get_from_cache("${type}_holidays");
59		68
60	# Populate the cache is necessary	69	# Populate the cache is necessary
61	unless ($exception_holidays) {	70	unless ($holidays) {
62	my $dbh = C4::Context->dbh;	71	my $dbh = C4::Context->dbh;
63	$exception_holidays = {};	72	$holidays = {};
64		73
65	# Push holidays for each branch	74	# Push holidays for each branch
66	my $exception_holidays_sth = $dbh->prepare(	75	my $holidays_sth = $dbh->prepare(
67	'SELECT day, month, year, branchcode FROM special_holidays WHERE isexception = 1'	76	'SELECT day, month, year, branchcode FROM special_holidays WHERE isexception = ?'
68	);	77	);
69	$exception_holidays_sth->execute();	78	$holidays_sth->execute($type eq 'exception' ? 1 : 0);
70	my $dates = [];	79	my $dates = [];
71	while ( my ( $day, $month, $year, $branch ) =	80	while ( my ( $day, $month, $year, $branch ) =
72	$exception_holidays_sth->fetchrow )	81	$holidays_sth->fetchrow )
73	{	82	{
74	my $datestring =	83	my $datestring =
75	sprintf( "%04d", $year )	84	sprintf( "%04d", $year )
76	. sprintf( "%02d", $month )	85	. sprintf( "%02d", $month )
77	. sprintf( "%02d", $day );	86	. sprintf( "%02d", $day );
78		87
79	$exception_holidays->{$branch}->{$datestring} = 1;	88	$holidays->{$branch}->{$datestring} = 1;
80	}	89	}
81	$cache->set_in_cache( 'exception_holidays', $exception_holidays,	90	$cache->set_in_cache( "${type}_holidays", $holidays,
82	{ expiry => 76800 } );	91	{ expiry => 76800 } );
83	}	92	}
84		93
85	return $exception_holidays->{ $self->{branchcode} } // {};	94	return $holidays->{ $self->{branchcode} } // {};
86	}	95	}
87		96
88	sub is_exception_holiday {	97	sub is_exception_holiday {
Lines 95-138 sub is_exception_holiday { Link Here
95	sub single_holidays {	104	sub single_holidays {
96	my ($self) = @_;	105	my ($self) = @_;
97		106
98	my $cache = Koha::Caches->get_instance();	107	return $self->_holidays('single');
99	my $single_holidays = $cache->get_from_cache('single_holidays');
100
101	# $single_holidays looks like:
102	# {
103	# CPL => [
104	# [0] 20131122,
105	# ...
106	# ],
107	# ...
108	# }
109
110	# Populate the cache if necessary
111	unless ($single_holidays) {
112	my $dbh = C4::Context->dbh;
113	$single_holidays = {};
114
115	# Push holidays for each branch
116	my $single_holidays_sth = $dbh->prepare(
117	'SELECT day, month, year, branchcode FROM special_holidays WHERE isexception = 0'
118	);
119	$single_holidays_sth->execute();
120
121	while ( my ( $day, $month, $year, $branch ) =
122	$single_holidays_sth->fetchrow )
123	{
124	my $datestring =
125	sprintf( "%04d", $year )
126	. sprintf( "%02d", $month )
127	. sprintf( "%02d", $day );
128
129	$single_holidays->{$branch}->{$datestring} = 1;
130	}
131	$cache->set_in_cache( 'single_holidays', $single_holidays,
132	{ expiry => 76800 } );
133	}
134
135	return $single_holidays->{ $self->{branchcode} } // {};
136	}	108	}
137		109
138	sub is_single_holiday {	110	sub is_single_holiday {
139	-