| Line 9... |
Line 9... |
| 9 |
use strict;
|
9 |
use strict;
|
| 10 |
use cPanelUserConfig;
|
10 |
use cPanelUserConfig;
|
| 11 |
use RollerCon;
|
11 |
use RollerCon;
|
| 12 |
use WebDB;
|
12 |
use WebDB;
|
| 13 |
use tableViewer;
|
13 |
use tableViewer;
|
| 14 |
use CGI;
|
14 |
use CGI qw/param header start_html url/;
|
| 15 |
use CGI::Cookie;
|
15 |
use CGI::Cookie;
|
| 16 |
use DateTime;
|
16 |
use DateTime;
|
| Line 17... |
Line 17... |
| 17 |
|
17 |
|
| 18 |
my $cookie_string = authenticate(2) || die;
|
18 |
my $cookie_string = authenticate(2) || die;
|
| Line 49... |
Line 49... |
| 49 |
</head>
|
49 |
</head>
|
| 50 |
<body text="#000000" bgcolor="#FFFFFF" link="#0000EE" vlink="#551A8B" alink="#FF0000">
|
50 |
<body text="#000000" bgcolor="#FFFFFF" link="#0000EE" vlink="#551A8B" alink="#FF0000">
|
| 51 |
output
|
51 |
output
|
| Line 52... |
Line 52... |
| 52 |
|
52 |
|
| 53 |
my $gcount = 1; my $tcount = '';
|
53 |
my $gcount = 1; my $tcount = '';
|
| 54 |
my $sth = $dbh->prepare("select distinct note, role, location, time from v_shift where dept = ? and date = ? order by location, time");
|
54 |
my $sth = $dbh->prepare("select distinct name, coach, note, location, time from v_class where date = ? order by location, time");
|
| Line 55... |
Line 55... |
| 55 |
my $crewhan = $dbh->prepare("select v_shift.derby_name, real_name from v_shift, official where v_shift.RCid = official.RCid and date = ? and dept = ? and isnull(v_shift.derby_name) = 0 and location = ? and time = ? order by v_shift.derby_name");
|
55 |
my $crewhan = $dbh->prepare("select derby_name, real_name from v_class_signup left join official on v_class_signup.RCid = official.RCid where date = ? and location = ? and time = ? order by derby_name");
|
| 56 |
|
56 |
|
| 57 |
|
57 |
|
| 58 |
$sth->execute("CLA", $date);
|
58 |
$sth->execute($date);
|
| 59 |
while (my $g = $sth->fetchrow_hashref()) {
|
59 |
while (my $g = $sth->fetchrow_hashref()) {
|
| 60 |
if ($tcount ne $g->{location}) { #pagebreak whenever we change tracks
|
60 |
if ($tcount ne $g->{location}) { #pagebreak whenever we change tracks
|
| 61 |
print "<div class='pagebreak'></div>\n" unless (!$tcount or $gcount++ % 2);
|
61 |
print "<div class='pagebreak'></div>\n" unless (!$tcount or $gcount++ % 2);
|
| 62 |
# print "<div class='pagebreak'><hr></div>\n";
|
62 |
# print "<div class='pagebreak'><hr></div>\n";
|
| Line 63... |
Line 63... |
| 63 |
$gcount = 1;
|
63 |
$gcount = 1;
|
| 64 |
$tcount = $g->{location};
|
64 |
$tcount = $g->{location};
|
| 65 |
}
|
65 |
}
|
| 66 |
|
66 |
|
| 67 |
print<<game;
|
67 |
print<<game;
|
| - |
|
68 |
<table>
|
| 68 |
<table>
|
69 |
<tr><td colspan=5 class="mvp bold">Class: ($g->{location}) $g->{name}</td></tr>
|
| 69 |
<tr><td colspan=5 class="mvp bold">Class: ($g->{location}) $g->{note}</td></tr>
|
70 |
<tr><td colspan=3 class="mvp">Date: $day ($date)</td><td colspan=2 class='mvp right'>Time: $g->{time}</td></tr>
|
| Line 70... |
Line 71... |
| 70 |
<tr><td colspan=3 class="mvp">Date: $day ($date)</td><td colspan=2 class='mvp right'>Time: $g->{time}</td></tr>
|
71 |
<tr><td colspan=5 class="mvp">Coach: $g->{coach}</td></tr>
|
| 71 |
<tr><td colspan=5 class="mvp">Coach: $g->{role}</td></tr>
|
72 |
<tr><td colspan=5 class="mvp">Note: $g->{note}</td></tr>
|
| 72 |
<tr><td colspan=5 class="mvp"> </td></tr>
|
73 |
<tr><td colspan=5 class="mvp"> </td></tr>
|
| 73 |
game
|
74 |
game
|
| 74 |
|
75 |
|
| 75 |
my $counter = 1;
|
76 |
my $counter = 1;
|
| 76 |
$crewhan->execute($date, "CLA", $g->{location}, $g->{time});
|
77 |
$crewhan->execute($date, $g->{location}, $g->{time});
|