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

(-)a/tools/newHolidays.pl (-10 / +9 lines)
Lines 15-33 use DateTime; Link Here
15
my $input               = new CGI;
15
my $input               = new CGI;
16
my $dbh                 = C4::Context->dbh();
16
my $dbh                 = C4::Context->dbh();
17
17
18
my $branchcode          = $input->param('newBranchName');
18
our $branchcode          = $input->param('newBranchName');
19
my $originalbranchcode  = $branchcode;
19
my $originalbranchcode  = $branchcode;
20
my $weekday             = $input->param('newWeekday');
20
our $weekday             = $input->param('newWeekday');
21
my $day                 = $input->param('newDay');
21
our $day                 = $input->param('newDay');
22
my $month               = $input->param('newMonth');
22
our $month               = $input->param('newMonth');
23
my $year                = $input->param('newYear');
23
our $year                = $input->param('newYear');
24
my $day1;
24
my $day1;
25
my $month1;
25
my $month1;
26
my $year1;
26
my $year1;
27
my $dateofrange         = $input->param('dateofrange');
27
my $dateofrange         = $input->param('dateofrange');
28
my $title               = $input->param('newTitle');
28
our $title               = $input->param('newTitle');
29
my $description         = $input->param('newDescription');
29
our $description         = $input->param('newDescription');
30
my $newoperation        = $input->param('newOperation');
30
our $newoperation        = $input->param('newOperation');
31
my $allbranches         = $input->param('allBranches');
31
my $allbranches         = $input->param('allBranches');
32
32
33
my $calendardate        = sprintf("%04d-%02d-%02d", $year, $month, $day);
33
my $calendardate        = sprintf("%04d-%02d-%02d", $year, $month, $day);
Lines 57-63 if ($description) { Link Here
57
}
57
}
58
58
59
# We make an array with holiday's days
59
# We make an array with holiday's days
60
my @holiday_list;
60
our @holiday_list;
61
if ($year1 && $month1 && $day1){
61
if ($year1 && $month1 && $day1){
62
            my $first_dt = DateTime->new(year => $year, month  => $month,  day => $day);
62
            my $first_dt = DateTime->new(year => $year, month  => $month,  day => $day);
63
            my $end_dt   = DateTime->new(year => $year1, month  => $month1,  day => $day1);
63
            my $end_dt   = DateTime->new(year => $year1, month  => $month1,  day => $day1);
64
- 

Return to bug 8842