Bug 15635: Koha::Patron::Images - Remove RmPatronImage
[koha.git] / tools / exceptionHolidays.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use CGI qw ( -utf8 );
7
8 use C4::Auth;
9 use C4::Output;
10 use DateTime;
11
12 use C4::Calendar;
13 use Koha::DateUtils;
14
15 my $input = new CGI;
16 my $dbh = C4::Context->dbh();
17
18 my $branchcode = $input->param('showBranchName');
19 my $weekday = $input->param('showWeekday');
20 my $day = $input->param('showDay');
21 my $month = $input->param('showMonth');
22 my $year = $input->param('showYear');
23 my $title = $input->param('showTitle');
24 my $description = $input->param('showDescription');
25 my $holidaytype = $input->param('showHolidayType');
26 my $datecancelrange_dt = eval { dt_from_string( $input->param('datecancelrange') ) };
27 my $calendardate = sprintf("%04d-%02d-%02d", $year, $month, $day);
28
29 my $calendar = C4::Calendar->new(branchcode => $branchcode);
30
31 $title || ($title = '');
32 if ($description) {
33     $description =~ s/\r/\\r/g;
34     $description =~ s/\n/\\n/g;
35 } else {
36     $description = '';
37 }   
38
39 # We make an array with holiday's days
40 my @holiday_list;
41 if ($datecancelrange_dt){
42             my $first_dt = DateTime->new(year => $year, month  => $month,  day => $day);
43
44             for (my $dt = $first_dt->clone();
45                 $dt <= $datecancelrange_dt;
46                 $dt->add(days => 1) )
47                 {
48                 push @holiday_list, $dt->clone();
49                 }
50 }
51 if ($input->param('showOperation') eq 'exception') {
52         $calendar->insert_exception_holiday(day => $day,
53                                                                                 month => $month,
54                                                                             year => $year,
55                                                                 title => $title,
56                                                                 description => $description);
57 } elsif ($input->param('showOperation') eq 'exceptionrange' ) {
58         if (@holiday_list){
59             foreach my $date (@holiday_list){
60                 $calendar->insert_exception_holiday(
61                     day         => $date->{local_c}->{day},
62                     month       => $date->{local_c}->{month},
63                     year       => $date->{local_c}->{year},
64                     title       => $title,
65                     description => $description
66                     );
67             }
68         }
69 } elsif ($input->param('showOperation') eq 'edit') {
70     if($holidaytype eq 'weekday') {
71       $calendar->ModWeekdayholiday(weekday => $weekday,
72                                    title => $title,
73                                    description => $description);
74     } elsif ($holidaytype eq 'daymonth') {
75       $calendar->ModDaymonthholiday(day => $day,
76                                     month => $month,
77                                     title => $title,
78                                     description => $description);
79     } elsif ($holidaytype eq 'ymd') {
80       $calendar->ModSingleholiday(day => $day,
81                                   month => $month,
82                                   year => $year,
83                                   title => $title,
84                                   description => $description);
85     } elsif ($holidaytype eq 'exception') {
86       $calendar->ModExceptionholiday(day => $day,
87                                   month => $month,
88                                   year => $year,
89                                   title => $title,
90                                   description => $description);
91     }
92 } elsif ($input->param('showOperation') eq 'delete') {
93         $calendar->delete_holiday(weekday => $weekday,
94                                   day => $day,
95                                   month => $month,
96                                               year => $year);
97 }elsif ($input->param('showOperation') eq 'deleterange') {
98     if (@holiday_list){
99         foreach my $date (@holiday_list){
100             $calendar->delete_holiday_range(weekday => $weekday,
101                                             day => $date->{local_c}->{day},
102                                             month => $date->{local_c}->{month},
103                                             year => $date->{local_c}->{year});
104             }
105     }
106 }elsif ($input->param('showOperation') eq 'deleterangerepeat') {
107     if (@holiday_list){
108         foreach my $date (@holiday_list){
109            $calendar->delete_holiday_range_repeatable(weekday => $weekday,
110                                          day => $date->{local_c}->{day},
111                                          month => $date->{local_c}->{month});
112         }
113     }
114 }elsif ($input->param('showOperation') eq 'deleterangerepeatexcept') {
115     if (@holiday_list){
116         foreach my $date (@holiday_list){
117            $calendar->delete_exception_holiday_range(weekday => $weekday,
118                                          day => $date->{local_c}->{day},
119                                          month => $date->{local_c}->{month},
120                                          year => $date->{local_c}->{year});
121         }
122     }
123 }
124 print $input->redirect("/cgi-bin/koha/tools/holidays.pl?branch=$branchcode&calendardate=$calendardate");