Lines 10-33
use C4::Output;
Link Here
|
10 |
|
10 |
|
11 |
|
11 |
|
12 |
use C4::Calendar; |
12 |
use C4::Calendar; |
|
|
13 |
use DateTime; |
13 |
|
14 |
|
14 |
my $input = new CGI; |
15 |
my $input = new CGI; |
15 |
my $dbh = C4::Context->dbh(); |
16 |
my $dbh = C4::Context->dbh(); |
16 |
|
17 |
|
17 |
my $branchcode = $input->param('newBranchName'); |
18 |
my $branchcode = $input->param('newBranchName'); |
18 |
my $originalbranchcode = $branchcode; |
19 |
my $originalbranchcode = $branchcode; |
19 |
my $weekday = $input->param('newWeekday'); |
20 |
my $weekday = $input->param('newWeekday'); |
20 |
my $day = $input->param('newDay'); |
21 |
my $day = $input->param('newDay'); |
21 |
my $month = $input->param('newMonth'); |
22 |
my $month = $input->param('newMonth'); |
22 |
my $year = $input->param('newYear'); |
23 |
my $year = $input->param('newYear'); |
23 |
my $title = $input->param('newTitle'); |
24 |
my $day1 = $input->param('newDay1'); |
24 |
my $description = $input->param('newDescription'); |
25 |
my $month1 = $input->param('newMonth1'); |
25 |
my $newoperation = $input->param('newOperation'); |
26 |
my $year1 = $input->param('newYear1'); |
26 |
my $allbranches = $input->param('allBranches'); |
27 |
my $title = $input->param('newTitle'); |
|
|
28 |
my $description = $input->param('newDescription'); |
29 |
my $newoperation = $input->param('newOperation'); |
30 |
my $allbranches = $input->param('allBranches'); |
27 |
|
31 |
|
28 |
my $calendardate = sprintf("%04d-%02d-%02d", $year, $month, $day); |
32 |
my $calendardate = sprintf("%04d-%02d-%02d", $year, $month, $day); |
29 |
my $isodate = C4::Dates->new($calendardate, 'iso'); |
33 |
my $isodate = C4::Dates->new($calendardate, 'iso'); |
30 |
$calendardate = $isodate->output('syspref'); |
34 |
$calendardate = $isodate->output('syspref'); |
31 |
|
35 |
|
32 |
$title || ($title = ''); |
36 |
$title || ($title = ''); |
33 |
if ($description) { |
37 |
if ($description) { |
Lines 80-84
sub add_holiday {
Link Here
|
80 |
description => $description); |
84 |
description => $description); |
81 |
} |
85 |
} |
82 |
|
86 |
|
83 |
} |
87 |
} elsif ( $newoperation eq 'holidayrange' ) { |
|
|
88 |
#Make an array with holiday's days |
89 |
my $first_dt = DateTime->new(year => $year, month => $month, day => $day); |
90 |
my $end_dt = DateTime->new(year => $year1, month => $month1, day => $day1); |
91 |
my @holiday_list = (); |
92 |
|
93 |
for (my $dt = $first_dt->clone(); |
94 |
$dt <= $end_dt; |
95 |
$dt->add(days => 1) ) |
96 |
{ |
97 |
push @holiday_list, $dt->clone(); |
98 |
} |
99 |
|
100 |
foreach my $date (@holiday_list){ |
101 |
unless ( $calendar->isHoliday( $date->{local_c}->{day}, $date->{local_c}->{month}, $date->{local_c}->{year} ) ) { |
102 |
$calendar->insert_single_holiday( |
103 |
day => $date->{local_c}->{day}, |
104 |
month => $date->{local_c}->{month}, |
105 |
year => $date->{local_c}->{year}, |
106 |
title => $title, |
107 |
description => $description |
108 |
); |
109 |
} |
110 |
} |
111 |
} elsif ( $newoperation eq 'holidayrangerepeat' ) { |
112 |
#Make an array with holiday's days |
113 |
my $first_dt = DateTime->new(year => $year, month => $month, day => $day); |
114 |
my $end_dt = DateTime->new(year => $year1, month => $month1, day => $day1); |
115 |
my @holiday_list = (); |
116 |
|
117 |
for (my $dt = $first_dt->clone(); |
118 |
$dt <= $end_dt; |
119 |
$dt->add(days => 1) ) |
120 |
{ |
121 |
push @holiday_list, $dt->clone(); |
122 |
} |
123 |
|
124 |
foreach my $date (@holiday_list){ |
125 |
unless ( $calendar->isHoliday( $date->{local_c}->{day}, $date->{local_c}->{month}, $date->{local_c}->{year} ) ) { |
126 |
$calendar->insert_day_month_holiday( |
127 |
day => $date->{local_c}->{day}, |
128 |
month => $date->{local_c}->{month}, |
129 |
title => $title, |
130 |
description => $description |
131 |
); |
132 |
} |
133 |
} |
134 |
} |
84 |
} |
135 |
} |
85 |
- |
|
|