| Line 39... |
Line 39... |
| 39 |
|
39 |
|
| 40 |
my $username = $h->a ({ href=>"/schedule/view_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
|
40 |
my $username = $h->a ({ href=>"/schedule/view_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
|
| 41 |
my $RCid = $user->{RCid};
|
41 |
my $RCid = $user->{RCid};
|
| 42 |
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
|
42 |
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
|
| 43 |
#my $YEAR = 1900 + (localtime)[5]; #which year of data to display, default to current
|
43 |
#my $YEAR = 1900 + (localtime)[5]; #which year of data to display, default to current
|
| Line 44... |
Line 44... |
| 44 |
my $YEAR = 1900 + (localtime)[5];
|
44 |
my $YEAR = param ("year") // 1900 + (localtime)[5];
|
| Line 45... |
Line 45... |
| 45 |
|
45 |
|
| Line 46... |
Line 46... |
| 46 |
#$LVL = 1;
|
46 |
#$LVL = 1;
|
| 47 |
|
47 |
|
| 48 |
my $dbh = WebDB::connect ();
|
48 |
my $dbh = WebDB::connect ();
|
| Line 49... |
Line 49... |
| 49 |
|
49 |
|
| 50 |
my $games = $dbh->prepare ("select * from v_shift_officiating where year(date) = ? and now() > date and RCid = ? and gtype in ('challenge', 'selected staffing', 'full length') order by date desc, time desc");
|
50 |
my $games = $dbh->prepare ("select * from v_shift_officiating where year(date) = ? and now() > date and RCid = ? and gtype in ('challenge', 'selected staffing', 'full length', 'challenge-rs1', 'challenge-rs2') order by date desc, time desc");
|