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