| Line 57... |
Line 57... |
| 57 |
output
|
57 |
output
|
| Line 58... |
Line 58... |
| 58 |
|
58 |
|
| 59 |
my $gcount = 1; my $tcount = '';
|
59 |
my $gcount = 1; my $tcount = '';
|
| 60 |
my $sth = $dbh->prepare("select distinct teams, track, level, time, gtype, restrictions from v_shift_officiating where date = ? order by track, time");
|
60 |
my $sth = $dbh->prepare("select distinct teams, track, level, time, gtype, restrictions from v_shift_officiating where date = ? order by track, time");
|
| 61 |
my $crewhan = $dbh->prepare("select role, derby_name from v_shift_officiating where date = ? and track = ? and time = ?");
|
61 |
my $crewhan = $dbh->prepare("select role, derby_name from v_shift_officiating where date = ? and track = ? and time = ?");
|
| 62 |
my $leadhan = $dbh->prepare("select location, time, derby_name from v_shift where dept = 'OFF' and date = ? order by location, time");
|
62 |
my $leadhan = $dbh->prepare("select location, time, derby_name from v_shift where type= 'lead' and dept = 'OFF' and date = ? order by location, time");
|
| Line 63... |
Line 63... |
| 63 |
my $openshifthan = $dbh->prepare("select time, level, restrictions, gtype, teams, tla, name from v_shift_officiating where tla <> 'ALT' and isNull(derby_name) = 1 and date = ? and track = ? order by time");
|
63 |
my $openshifthan = $dbh->prepare("select time, level, restrictions, gtype, teams, tla, name from v_shift_officiating where tla <> 'ALT' and isNull(derby_name) = 1 and date = ? and track = ? order by time");
|
| 64 |
|
64 |
|
| 65 |
my @leads = ("<table>\n", "<tr><td colspan=5><b>Lead Shifts</b></td></tr>\n");
|
65 |
my @leads = ("<table>\n", "<tr><td colspan=5><b>Lead Shifts</b></td></tr>\n");
|