Lines 122-128
foreach my $yearMonthDay (keys %$exception_holidays) {
Link Here
|
122 |
my %exception_holiday; |
122 |
my %exception_holiday; |
123 |
%exception_holiday = (KEY => $yearMonthDay, |
123 |
%exception_holiday = (KEY => $yearMonthDay, |
124 |
DATE_SORT => $exception_holidays->{$yearMonthDay}{date}, |
124 |
DATE_SORT => $exception_holidays->{$yearMonthDay}{date}, |
125 |
DATE => output_pref( { dt => $exceptiondate, dateonly => 1, dateformat => 'iso' } ), |
125 |
DATE => output_pref( { dt => $exceptiondate, dateonly => 1 } ), |
126 |
TITLE => $exception_holidays->{$yearMonthDay}{title}, |
126 |
TITLE => $exception_holidays->{$yearMonthDay}{title}, |
127 |
DESCRIPTION => $exception_holidays->{$yearMonthDay}{description}); |
127 |
DESCRIPTION => $exception_holidays->{$yearMonthDay}{description}); |
128 |
push @exception_holidays, \%exception_holiday; |
128 |
push @exception_holidays, \%exception_holiday; |
129 |
- |
|
|