| Line 270... |
Line 270... |
| 270 |
my $sth = $dbh->prepare("select * from (select id, date, dayofweek, track as location, time, role, teams, gtype, 'OFF' as dept, volhours from v_shift_officiating where RCid = ? union
|
270 |
my $sth = $dbh->prepare("select * from (select id, date, dayofweek, track as location, time, role, teams, gtype, 'OFF' as dept, volhours from v_shift_officiating where RCid = ? union
|
| 271 |
select id, date, dayofweek, track as location, time, role, teams, gtype, 'ANN' as dept, volhours from v_shift_announcer where RCid = ? union
|
271 |
select id, date, dayofweek, track as location, time, role, teams, gtype, 'ANN' as dept, volhours from v_shift_announcer where RCid = ? union
|
| 272 |
select id, date, dayofweek, location, time, role, '' as teams, type as gtype, dept, volhours from v_shift where RCid = ?) temp
|
272 |
select id, date, dayofweek, location, time, role, '' as teams, type as gtype, dept, volhours from v_shift where RCid = ?) temp
|
| 273 |
$where order by date, time");
|
273 |
$where order by date, time");
|
| 274 |
$sth->execute($RCid, $RCid, $RCid);
|
274 |
$sth->execute($RCid, $RCid, $RCid);
|
| 275 |
my $hours;
|
275 |
my $hours = 0;
|
| 276 |
while (my $s = $sth->fetchrow_hashref) {
|
276 |
while (my $s = $sth->fetchrow_hashref) {
|
| 277 |
my ($yyyy, $mm, $dd) = split /\-/, $s->{date};
|
277 |
my ($yyyy, $mm, $dd) = split /\-/, $s->{date};
|
| 278 |
my $cutoff = DateTime->new(
|
278 |
my $cutoff = DateTime->new(
|
| 279 |
year => $yyyy,
|
279 |
year => $yyyy,
|
| 280 |
month => $mm,
|
280 |
month => $mm,
|