| Line 33... |
Line 33... |
| 33 |
$user->{department} = convertDepartments $user->{department};
|
33 |
$user->{department} = convertDepartments $user->{department};
|
| 34 |
$username = $h->a ({ href=>"/schedule/view_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
|
34 |
$username = $h->a ({ href=>"/schedule/view_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
|
| 35 |
$RCid = $user->{RCid};
|
35 |
$RCid = $user->{RCid};
|
| 36 |
$RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
|
36 |
$RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
|
| Line 37... |
Line 37... |
| 37 |
|
37 |
|
| 38 |
if (!$user->{MVPid} and $LVL < RollerCon::ADMIN and $user->{department}->{MVP} < RollerCon::USER) {
|
38 |
if (!$user->{MVPid} and $LVL < RollerCon::ADMIN and $user->{department}->{MVP} < RollerCon::USER and $user->{department}->{COA} < RollerCon::USER) {
|
| 39 |
print header(-cookie=>$RCAUTH_cookie);
|
39 |
print header(-cookie=>$RCAUTH_cookie);
|
| 40 |
printRCHeader("Unauthorized Page");
|
40 |
printRCHeader("Unauthorized Page");
|
| 41 |
print $h->div ({ class=>"error" }, "No Access");
|
41 |
print $h->div ({ class=>"error" }, "No Access");
|
| 42 |
print $h->div ("Your user account is not registered to sign up for MVP Classes, so you can't see this page. It's possible that your access is still being reviewed. Please be patient.");
|
42 |
print $h->div ("Your user account is not registered to sign up for MVP Classes, so you can't see this page. It's possible that your access is still being reviewed. Please be patient.");
|
| Line 64... |
Line 64... |
| 64 |
if ($LVL >= RollerCon::ADMIN) {
|
64 |
if ($LVL >= RollerCon::ADMIN) {
|
| 65 |
$COLUMNS{id} = [qw(Admin 1 none default )];
|
65 |
$COLUMNS{id} = [qw(Admin 1 none default )];
|
| 66 |
$COLUMNS{available}= [qw(SignUp 45 text )]
|
66 |
$COLUMNS{available}= [qw(SignUp 45 text )]
|
| 67 |
}
|
67 |
}
|
| Line 68... |
Line 68... |
| 68 |
|
68 |
|
| 69 |
if ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::VOLUNTEER) {
|
69 |
if ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::VOLUNTEER or $user->{department}->{COA} >= RollerCon::USER) {
|
| 70 |
$COLUMNS{note} = [qw(Notes 60 text )],
|
70 |
$COLUMNS{note} = [qw(Notes 60 text )],
|
| 71 |
$COLUMNS{capacity} = [qw(Capacity 65 number default )],
|
71 |
$COLUMNS{capacity} = [qw(Capacity 65 number default )],
|
| 72 |
$COLUMNS{count} = [qw(Count 70 number default )],
|
72 |
$COLUMNS{count} = [qw(Count 70 number default )],
|