|
Lines 41-57
my $add_default_branch = 'INSERT IGNORE INTO branches (branchname, branchcode) V
Link Here
|
| 41 |
my $add_Branch_Sth = $dbh->prepare($add_default_branch); |
41 |
my $add_Branch_Sth = $dbh->prepare($add_default_branch); |
| 42 |
$add_Branch_Sth->execute('Default', ''); |
42 |
$add_Branch_Sth->execute('Default', ''); |
| 43 |
# finds branches; |
43 |
# finds branches; |
| 44 |
my $selectBranchesSt = 'SELECT branchcode FROM branches'; |
44 |
my $selectBranchesSt = 'SELECT branchname, branchcode FROM branches'; |
| 45 |
my $selectBranchesSth = $dbh->prepare($selectBranchesSt); |
45 |
my $selectBranchesSth = $dbh->prepare($selectBranchesSt); |
| 46 |
$selectBranchesSth->execute(); |
46 |
$selectBranchesSth->execute(); |
| 47 |
my @branches = (); |
47 |
my @branches = (); |
| 48 |
for my $branchCode ( $selectBranchesSth->fetchrow_array ) { |
48 |
while (my @row = $selectBranchesSth->fetchrow_array ) { |
| 49 |
print $branchCode . "\n"; |
49 |
print "[$row[1]] $row[0]\n"; |
| 50 |
push @branches,$branchCode; |
50 |
push @branches, $row[1]; |
| 51 |
} |
51 |
} |
| 52 |
print "REACH\n"; |
|
|
| 53 |
print Dumper(\@branches); |
| 54 |
|
| 55 |
|
52 |
|
| 56 |
# finds what days are closed for each branch |
53 |
# finds what days are closed for each branch |
| 57 |
my %repeatableHolidaysPerBranch = (); |
54 |
my %repeatableHolidaysPerBranch = (); |
|
Lines 103-111
for (my $tempDate = $startDate->clone(); $tempDate <= $endDate;$tempDate->add(da
Link Here
|
| 103 |
# Representation fix |
100 |
# Representation fix |
| 104 |
# DateTime object dow (1-7) where Monday is 1 |
101 |
# DateTime object dow (1-7) where Monday is 1 |
| 105 |
# Arrays are 0-based where 0 = Sunday, not 7. |
102 |
# Arrays are 0-based where 0 = Sunday, not 7. |
| 106 |
$dayOfWeek -=1 unless $dayOfWeek ==7; |
|
|
| 107 |
$dayOfWeek =0 if $dayOfWeek ==7; |
| 108 |
|
| 109 |
my $open_hour = "09:00:00"; |
103 |
my $open_hour = "09:00:00"; |
| 110 |
my $close_hour = "17:00:00"; |
104 |
my $close_hour = "17:00:00"; |
| 111 |
|
105 |
|
|
Lines 113-125
for (my $tempDate = $startDate->clone(); $tempDate <= $endDate;$tempDate->add(da
Link Here
|
| 113 |
my $is_opened =1; |
107 |
my $is_opened =1; |
| 114 |
my $specialDescription = ""; |
108 |
my $specialDescription = ""; |
| 115 |
my $holiday_type =''; |
109 |
my $holiday_type =''; |
| 116 |
$dayOfWeek = $tempDate->day_of_week; |
110 |
$dayOfWeek = $tempDate->day_of_week % 7; |
| 117 |
foreach my $holidayWeekDay (@{$repeatableHolidaysPerBranch{$branch}}){ |
111 |
foreach my $holidayWeekDay ( @{$repeatableHolidaysPerBranch{$branch}} ) { |
| 118 |
if($holidayWeekDay->{weekday} && $dayOfWeek == $holidayWeekDay->{weekday}){ |
112 |
if (defined($holidayWeekDay) && $dayOfWeek == $holidayWeekDay->{weekday}) { |
| 119 |
$is_opened = 0; |
113 |
$is_opened = 0; |
| 120 |
$specialDescription = $holidayWeekDay->{title}; |
114 |
$specialDescription = $holidayWeekDay->{title}; |
| 121 |
$holiday_type = 'W'; |
115 |
$holiday_type = 'W'; |
| 122 |
}elsif($holidayWeekDay->{day} && $holidayWeekDay->{month}){ |
116 |
} elsif ($holidayWeekDay->{day} && $holidayWeekDay->{month}) { |
| 123 |
my $date = DateTime->new( |
117 |
my $date = DateTime->new( |
| 124 |
day => $holidayWeekDay->{day}, |
118 |
day => $holidayWeekDay->{day}, |
| 125 |
month => $holidayWeekDay->{month}, |
119 |
month => $holidayWeekDay->{month}, |
|
Lines 136-142
for (my $tempDate = $startDate->clone(); $tempDate <= $endDate;$tempDate->add(da
Link Here
|
| 136 |
} |
130 |
} |
| 137 |
|
131 |
|
| 138 |
foreach my $specialDate (@{$specialHolidaysPerBranch{$branch}}){ |
132 |
foreach my $specialDate (@{$specialHolidaysPerBranch{$branch}}){ |
| 139 |
if($tempDate->datetime() eq $specialDate->{date}->datetime() ){ |
133 |
if ($tempDate->datetime() eq $specialDate->{date}->datetime()) { |
| 140 |
$is_opened = 0; |
134 |
$is_opened = 0; |
| 141 |
$specialDescription = $specialDate->{title}; |
135 |
$specialDescription = $specialDate->{title}; |
| 142 |
$holiday_type = 'E'; |
136 |
$holiday_type = 'E'; |
| 143 |
- |
|
|